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UT GROTE PEEKS. POKES EN TRUUKS BOEK 



In dit nieuwe Qe) deel weer een gigantische verzameling 
speeltips, truukjes, maps en 'vals-spee!' mogelijkheden. 
Behandeld morden: RIphaRoid, flrmg Moves, Barnstormer, 
Back to the Future, Batman, Blom lip, Boom, Chi Ier, Be 
Sekte, Maze of Galious, Couraqeous Perseus, Cgberun, 
Daiva Story 4, Decathlon, Dog Fighter, Eqgerland, Egger- 
land 2, Feud, Fire Bird, Fire Hawk, Fire Hescue, Goonies, 
Gunfright, Formula I, Guttbiaster, Hard Boiled, Helst leyel 
II, Hgalide, Hype, Jet Set ttlilly 2, Kung Fu Master, 
Macross, Maqical Kid IDiz, L'fiffaire, Keystone Kapers, 
Kung Fu 2, Metal Gear, Konami Combinaties, Nemesis, Ne- 
mesis 2, Ninja 2, Parodius, Pastfinder, Penguin fldventure 
Pippols, Price of Magie, Poiice Story, Protector, RadX B, 
Sorcery, Soul of a Robot, Starquake, Super Rambo spe- 
cial, Super Runner, Zanac EX, Terminus, terramex, Dam- 
busters, Theseus, Treasure of USRS, Vampire Killer, Zoo, 
IDizard's Lair & Zakil UJood. 



Een indrukwekkende lijst en voor iedereen interessant, 
want we kunnen ons ónmogelijk voorstellen dat u niet een 
van deze programma’s in net bezit heeft. 

Zit u 'vast' met een programma, dan geeft dit boek u 
weer een stoot in de goede richting. De praktijk leert 
dat vele 'oude' programma's weer uit de kast worden ge- 
haald en gespeeld. 



Prijs: 






14,75 



NEMESIS 3 

KONAMI 2ME6AROM MET GELUDSCWP 

Eindelijk is hij uitgebracht in Europa. De echte Nemesis 3, 
dus NIET Parodius of een 'uitqeklede' versie die ten on- 
rechte voor 'origineel' moet doorgaan. 

Twee keer zo uifgebreid als Salamander en weer mooier 
en met extra opties. Zo is het nu ook mogelijk om zelf 
het ruimteschip te kiezen! 

Jammergenoeg is de prijs hoger dan we gewend zijn van 
Japanse cartridges, maar hei programma is die hogere 
prijs nog waard ook!!! 

Kijk uit Yoor goedkope (Hiegale?) namaak en kies voor de 
echte NEMESIS 3, ook al kost die iets meer. 

Prijs: (2 MegaRom met geluidschip), 123,00 



TRUUKS EN TIPS MOOR SERIEUS MSX GEBRUIK 

Deze truuks en Tips diskette heeft tot doel een diskboek 
te zijn voor iedereen die eens wat meer doet dan een 
spelletje spelen. Het programma is behulpzaam met allerlei 
slimmigheidjes in eigen programma's 
Ransturen van hardware, een snelle poke of slimme peek, 
truukjes ter beveiliging e.d., dit soort zaken kunt u ver- 
wachten op deze Truuks en Tips diskette. 

Het programma geeft geen informatie hoe een spel tot 
een goed einde gebracht moet worden. Daar is tenslotte 
het Grote Peeks, Pokes en Truuks boek voor, 

De uitvoering van het programma is zeer attraktief en 
maakt gebruik van z.g.n. pull-down menu's zoals die ook 
bekend zijn van Hi-Brid, tase en Dunamic Publisher. 

Het programma herkent automatisch of het op een MSX-I 
of MSX-/ computer werkt. Indien de MSX-2 computer is 
voorzien van 25GK RRM, dan wordt gebruik gemaakt van 
een RRMdisk. Ook dit gebeurt geheel automatisch. 

Voorts kent het programma een (bijna) gratis update ser- 
vice. Op de diskefte staat de informatie daarover. 

Door de exclusieve samenwerking met de makers van het 
programma, kunnen wij dit prachtige stukje software aan- 
bieden voor de ongelovelijke prijs van noilMiKiiMiiimiiitimii 14,35 



MSX SOFTWARE CR* CASSETTE 



UJEC Le Mans (uitsluitend MSX-1) 33,35 

Robocop (uitsluitend MSX-D.... 35,00 

4x4 On Road Rating 33,35 

Pac-Land............. ........... 35,00 

Rambo III — 35,00 

Operation lilolf ............. 35,00 

Colosseum 3,35 

Pasteman 3,35 



voor BESTELLINGEN en INLICHTINGEN: 
Tel: 926-665 93 93 
Fax:926 - 668 38 96 

Time Soft Amsterdam c.v. 
Beukenweg 7 
1892 AX Am st erden 

Binnenkort ook in Almere 



Bestellingen beneden f. 160,= worden verhoogd Net f. 5,00 verzenefcosten. 
Re*bour settenten (totalen aan de postbode) worden altijd verhoogd Net f. 18,06 
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de uitgever. 
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VOORWOORD 



In ’t kort 



R o m p je 1 : Software Centre Lely- 

stad bestaat niet meer. 

ö m f3 J e Ss Bij de advertentie 
van de beurs in Amsterdam stonden in alle 
advertenties geen entreeprijzen vermeld. 
Tevens werd door de naam "Vierde MSK 
beurs" (in andere bladen) de indruk gewekt 
als zou het om dezelfde beurs -en 

organisatoren- gaan als eerdere beurzen 
in dit gebouw. Niet was echter minder waar 
en groot was de teleurstelling voor velen 
(vooral ouders met kinderen) toen bleek 
dat FL. 7,50 per persoon neergeteld moest 
worden voor een zeer matig evenement 
waar weer geen DOS, harddisk en andere 
nieuwtjes te vinden waren. De MSK-2+ is 
wel even te zien geweest, maar daar deze 
machine weer werd meegenomen krijgen we 
nu sterk de indruk dat er slechts een 
MSK-2+ computer in Nederland rouleert. 

Ramp je 3= In fig. 3 bij het arti- 
kel over de diabesturing moet de benaming 
van de torren omgewisseld worden. BC548 - 
NPN, BC558 = PNP. Dit werd ons medege- 

deeld door Joost Bosman, waarvoor onze 
dank. 

Geen r' a m pje: Richard Alten- 

burg is gestopt met de serie 'Leer, probeer 
en programmeer*. Gelukkig wordt deze serie 
voort gezet door Ina Stam, die Richard al 
eerder assisteerde bij deze serie. 

Dan is de prijs van de MSK-Gids hoger 

geworden nee, dit blijkt niet uit de 

prijs op de voor kant doch uit het aantal 
pagina's. 

Het Diskmagazine is heel enthousiast 
ontvangen. Vandaar dat reeds nu al het 2e 
Diskmagazine is verschenen en de prijs 
hebben we ook kunnen verlagen. Een derde 
Diskmagazine komt vrijwel zeker en ter 
compensatie van het duurdere blad gaan 
we meer kortingen geven op software voor 
onze abonnees. 

Nu we het toch over het diskmagazine 
hebben.... op deze disk staan, en dat blijkt 
ook uit de advertentie, ook poke's, tips, 
een 'help' rubriek en de minigids. Inzenders 
voor een van deze rubrieken die hun 
inzending in dit blad niet terugvinden 
moeten er dus rekening mee houden dat 
hun post op het diskmagazine behandeld 
kan zijn. Sta je in geen van beiden dan 
was de inzending te laat en blijft liggen 
tot het volgende blad (disk) of het betrof 
illegale software en dan vind je je post 
terug in onze vuilnisbak. 

Alf red 



Een oude joystick In een nieuw jasje: 

Via Timesoft in Amsterdam kregen we de 
SV-122 QUICKJOY-II. Een eenvoudige joy- 
stick zonder microswitches, maar wel met 
een 'autofire' knop. Een fraaie joystick 
met zuignapjes en twee vuurknoppen. Een 
prima apparaat voor een zeer lage prijs: 
PL. 13,3-5. 

Ook van Timesoft kwam de 'MOUSE POCKET'. 
Een houdertje waarin een muis geschoven 
kan worden. Het houdertje is met een 
stukje dubbelzijdig plakband (bijgeleverd) 
op b.v. de monitor of de behuizing van de 
computer te bevestigen. Handig, maar 
duur. Dit kleine stukje plastic kost FL. 
14,35 en een gedeelte van dit bedrag zit 
zeker in de luxe verpakking. 



SOFTWARE: 

Colosseum is de laatste titel die we bin- 
nenkregen. Tijd voor een plaatje was er 
niet meer maar vanwege de originaliteit 
beschrijven we het toch maar even en 
laten we het programma niet liggen tot de 
volgende uitgave. Colosseum is de 'Ben Hur' 
voor de MSK computers. Er moet een race 
worden gereden met strijdwagens over 4 
rondes. Er zijn G vijanden en op je weg in 
de arena kom je diverse obstakels tegen. 
Het spel is leuk en de snelheid pittig. De 
besturing werkt soepel met joystick of 
met toetsenbord, waarbij de toetsen zelf 
zijn te definiëren. Het programma start op 
met prima muziek, doch de geluiden tijdens 
het spel zijn magertjes. Grafisch is alles 
heel eenvoudig, weinig kleur, maar goed 
bewegende sprites. Al met al toch veel 
waar voor je geld, want dit heel aardige 
spel kost op cassette slechts FL. 3,35 en 
wordt geleverd met een handleiding in 4 
talen waaronder -uiteraard- weer geen 
Nederlands. 



BEELD : XX 

GELUID ï XX 

SPELKWALI TEI T: XXX 

DOCUMENTATIE : XXXX 

PRIJS ï XXXX 



Er wordt steeds meer op disk gedaan. Zo is 
er nu TRUUKS & TIPS op disk leverbaar. 
Onder de indrukwekkende naam 'TURBO 
POWERSOFT' is deze diskette uitgebracht 
door de MSK gebruikers groep Nijmegen 
voor een bedragje van FL. 15,=. Er is een 
update mogelijkheid tegen retourporto 
prijs. Heel leuk! (Ook weer gekregen van 
Timesoft Amsterdam). 

ROBOCOP 

Dit spel hebben we niet kunnen beschrij- 
ven. Op onze Philips en Sony MSK-2 
machines konden we het spel niet aan de 
praat krijgen. Ook op een -geleende- 
Philips M5K-1 wilde het niet lukken. Dit 
spel, op cassette, prijs FL. 33,50 (poe, poe), 
is dus slechts door enkele MSK-1 bezitters 
te spelen. 
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MSX-2 

KLEUREN 

MENGEN 

Met dit programma is het mogelijk om met 
een MSH-2 computer kleuren te mengen- Men 
moet 4 waardes ingeven: A,B,C en D. 

A staat voor de hoofdkleur (1-15). 

B is voor de hoeveelheid rood die je bij de 
hoofdkleur A wilt hebben. 

C is voor de hoeveelheid groen die je bij de 
hoofdkleur A wilt hebben. 

D is voor de hoeveelheid blauw die je bij de 
hoofdkleur A wilt hebben. 

Na het invoeren van de waardes gaat de 
computer mengen. Tevens zoekt de computer 
een passende achtergrondkleur en toont de 
gemengde kleur. Wil je de kleur gebruiken in 
een eigen programma dan geeft de computer 
de waardes die je moet opgeven in je eigen 
programma. 



10 ON ERRO R GOTO 960 

20 STOP ON 

30 ON STOP GOSUB 970 

40 CLS: SCREEN0: VIDTH 80 : KEYOFF : COLOR 15,4, 



50 print”xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X***" 

60 PRINT” XXXXXXXXXXXXXXXXXXXXXXXX FREE SOF 
TWARE (C) XXXXX 

XXXX” 

70 PRINT” XXXXXXXXXXXXXXXXXXXXXXXX KLEUR ME 
NGER (c)1989 MSX-Gids Lelystad XXXXX 
XXXX” 

80 PRINT" XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXX” 

90 PRINT" XXXXXXXXXXXXXXXXXXXXXXXX MENGEN M 
ET DE KLEUREN ’ ROOD' , ’ GROEN' , 1 BLAUW' XXXXX 
XXXX” 

100 PRINT” XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

******* 

110 FOR A= 1 TO 1000 : NEXT 
120 A=0 
130 B=0 
140 C=0 
150 D=0 
160 E=0 

170 ’ UITLEGX. X. X 
180 COLOR 1,4 
190 CLS 
200 PRINT” 

210 PRINT” 

220 PRINT” 

230 PRINT” 

240 PRINT” 1 zwart. 

11 licht geel ” 

250 PR INT” 2 green 

12 donk. groen ” 

260 PR INT" 3 licht gr. 8 rood 

13 magenta ” 



@@ FREE SOFTWARE 

@@ hoofd kleur 

6 donk. rood 

7 hemels bl. 



270 PR INT” 4 donk. bl 



9 licht rood 



14 grijs ” 

280 PRINT”5 licht, bl 10 donk. veel 

15 wit ” ö 



290 PRINT 

300 PRINT”: 4 WAARDEN a.u.b" 

310 PRINT”: A=HOOFD KLEUR (1-15)" 

320 PRINT” : B=ROOD STERKTE (0-7 )” 

330 PRINT” :C=GROEN STERKTE (0-7 >” 

340 PRINT” : D=BLAUW STERKTE (0-7 )" 

350 PRINT”: NA INVOEREN RETURN” 

360 FOR A=1 TO 1500 
370 ’ INVOEREN 
380 ’ 

390 * 

400 ’ 

410 INPUT”: A=”;A: IFA>15 THEN 190 
420 INPUT” : B=" ; B: IFB>7 THEN 190 
430 INPUT” : C=" ; C: IFC>7 THEN 190 
440 INPUT” : D=” ; D: IFD>7 THEN 190 
450 ’CONTR. 

460 INPUT": WAS ING. GOED ( J/N) " ; Z$ 

470 IF Z3>="N” OR Z$=”n” THEN 310 
480 ’ END ING EN UITLEG 

490 ’ HET MENGEN DOOR DE COMP MET DE ING. WA 

ARDE 

500 CLS 

510 COLOR 15,4,4 : PRINT” :X. NU AAN H 
ET MENGEN! ! ! !" 

520 IF A=0 THEN PRINT”0 IS TRANSPARANT, DUS 
NIET TE ZIEN” : FORXY = 1 TO 1000 : NEXT XY 
: GOTO 190 

530 FOR Y=1 TO 1200: NEXT 
540 CLS 

550 IF A=4 THEN COLOR 0,1 

560 IF A=1 AND D =>4 THEN COLOR 0,14 

570 SCREEN 0 

580 COLOR A 

590 COLOR =(B,C, D) 

600 PR I NT” 




620 PR INT”XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

*****’’ 



630 PRIOT** ****************** f r e e s o f 
t W a r e XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
******* 

640 PRINT” XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

******* 

650 PR I NT : PR I NT" HOOFDKLEUR" ; A 
660 PR INT” ROOD” ; B 
670 PR INT" GROEN" ; C 
680 PR INT” BLAUW” ; D 

690 PRINT”: druk op een toets voor vervolg” 
700 A$=INKEY$ ° 

710 IF A$=””GOTO 700 
720 CLS: COLOR 15,4,4 

730 INPUT” wil je deze kleur in een zelf ge 
maakt programma hebben? (j/n)” ; W$ 

740 IF W$=”n” OR W$=”N” THEN GOTO 900 
750 CLS 

760 PRIFP’voer dan dit programma in” 

770 PRINT: PRINT 

780 PRINT” 10 screen 0:width 40” 

790 PR INT” 20 color ”;A ” 

800 PRINT”30 color = (” : A: ” , ” ; B: ” , ” : C: " ”-D 

. »t ^ ti * * * * * * * 

810 PRINT”40 rem nu volgt de rest van je p 
rograrama” r 

820 * uit printen 
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83® PRINT: PRINT: PRINT: INPUT" moet dit 
amma uit geprint worden? (j/n)” ; J$ 

840 IF J$ ="N" QR J$=”n” THEN 900 
850 LPROTT”10 screen 0:width 40” 

860 LPRINT”20 color” ; A" 

870 LPRINT”3® color =<";A:” "'Et-” 

D; ” )" ' 



progr 



,.22 25 r 

'5 5 2 



880 LPE 1 BT” 40 rem nu volgt de rest van je 
programma” 

890 FOR P=1 TO 1750 : NEXT 
900 CLS 



910 INPUT” andere kleur mengen? (j/n)” ; KS 
920 IF K$=” j” OR K$=” J” THEN GOTO 40 
930 CLS 

940 LOCATE 10, 10: PRINP’tot ziens” 

950 END 

960 PR INT” JE HEBT EEN FOUTE ING. GEDAAN OF 
ER IS EEN FOUT IN HET PROGRAMMA” : FOR V=1 
TO 1000: NEXT: GOTO 10 
970 GOTO 900 




CONTROLE TE LL ING 



Rege 1 : 


1 0 


- 


245 


Regel ; 


210 


- 


2 


Regel : 


410 - 


245 


Regel : 


20 


- 


69 


Regel : 


220 


- 


213 


Regel : 


420 - 


18 


Regel ; 


30 


- 


237 


Regel ; 


230 


- 


232 


Regel : 


430 - 


21 


Regel : 


40 


- 


1 76 


Rege 1 : 


240 


- 


227 


Regel : 


440 - 


24 


Regel : 


50 


- 


203 


Regel : 


250 


- 


203 


Regel ; 


450 - 


58 


Regel : 


60 


- 


64 


Regel : 


260 


- 


1 44 


Rege 1 ; 


460 - 


42 


Regel ; 


70 


- 


1 25 


Rege 1 : 


270 


- 


54 


Regel : 


470 - 


95 


Regel ; 


60 


- 


203 


Regel : 


280 


- 


1 72 


Regel : 


480 - 


58 


Regel ; 


90 


- 


85 


Regel : 


290 


- 


1 45 


Regel ; 


490 - 


58 


Regel : 


1 00 


- 


203 


Regel : 


300 


- 


57 


Regel : 


500 - 


1 59 


Regel : 


1 1 0 




1 


Regel : 


310 


- 


53 


Rege 1 : 


510 - 


1 1 2 


Regel : 


120 


- 


65 


Regel ; 


320 


- 


1 OS 


Regel ; 


520 - 


247 


Regel : 


1 30 


- 


66 


Regel : 


330 


- 


1 45 


Regel : 


530 - 


1 62 


Regel : 


1 40 


- 


67 


Rege 1 : 


340 


- 


1 46 


Regel : 


540 - 


1 59 


Regel : 


1 50 


- 


68 


Rege 1 : 


350 


- 


36 


Regel : 


550 - 


54 


Regel : 


1 60 


- 


69 


Regel ; 


360 


- 


250 


Rege 1 : 


560 - 


202 


Regel : 


170 


- 


53 


Regel : 


370 


- 


58 


Regel ; 


570 “ 


246 


Regel : 


1 80 


- 


48 


Regel ; 


380 


- 


58 


Regel ; 


580 - 


30 


Regel : 


1 90 


- 


1 53 


Regel : 


390 


- 


58 


Regel : 


590 - 


62 


Regel : 


200 




213 


Regel : 


400 




58 








En hi 


er 


1 


aat 


de lis- 


fcing 


test 


er ons 


hel 


aas 


in de 


steek. 


De laatste 


regels van 


dit 


pro 



gramma geven een foutmelding bij de tester 



Jawel, zo kan zij 
"erbij" blijven 

Bij Els B. trad een kwaadaardige ziekte op. Haar 
linker-onderbeen werd geamputeerd. Het werd haar 
wens om, als voorheen, toch met haar dochters te 
kunnen fietsen. Zij heeft nu een aangepaste fiets. 
AVO-Nederland stelde daarvoor een aanvullende bij- 
drage beschikbaar. 

Als wettelijke regelingen niet toereikend blijken, 
kunnen vele gehandicapten op AVO-Neder- 



land rekenen. 




A VO-Nederland 

vereniging voor arbeid en welzijn voor 
mensen met een handicap 

Postbus 850, 3800 AW Amersfoort 
Telefoon (033) 75 33 44. Giro 625000 



TUNES (MSX-2) 



Probeer binnen een bepaalde tijd zoveel 
mogelijk stukjes uit melodie-en (tunes dus) 
na te spelen op het toetsenbord van de 
computer. Gebruik voor de laagste tonen 
(oktaaf 3 in het PLAY statement) de toetsen 
z t/m m, voor oktaaf 4 a t/m j en voor 
oktaaf 5 q t/m u. Hogere of lagere tonen 
zijn in Tunes niet mogelijk. De hoofdletters 
dienen voor de zwarte toetsen. 

Iedere spelronde begint als je de RETURN 
toets hebt ingedrukt. Nadat de na te spelen 
tune ten gehore is gebracht begint de tijd 
te lopen. Regelmatig gaat er op de tijdbalk 
een volgend "LEDje“ branden. Als ze allemaal 
branden is het spel afgelopen. In het begin 
gaat dit vrij langzaam nl. om de ca. 15 
seconden, maar na iedere gevonden tune gaat 
er een seconde af tot uiteindelijk na iedere 3 
seconden de volgende gaat branden. De inter- 
valtijd wordt weergegeven op het midden van 
het info display. Daarboven staat het aantal 
tonen dat gevonden moet worden en onderop 
het aantal punten dat de tune oplevert (30 
punten per toon). Bij een verkeerde toets 
gaan hier punten vanaf; hoe verder van de 
goede toon des te meer punten. Om te 
voorkomen dat je uit het score ver loop kunt 
zien hoe ver je er naast zit, wordt deze niet 
na iedere fout, maar samen met de tijdbalk 
bijgewerkt. Als een goede toon gevonden is 
gaat de linker G-sleutel een plaats naar 
rechts. Als de beide sleutels elkaar 
overlappen dan zijn alle tonen gevonden. Als 
het pijltje naar beneden of naar boven 
brandt dan is de ingedrukte toon te laag dan 
wel te hoog. 



Er is een aantal hulptoetsen. Als RETURN 
wordt ingedrukt, wordt de gehele tune nog 
een keer gespeeld. SELECT laat de toon horen 
die op dat moment aan de beurt is om te 
raden. INSERT werkt als een aan/uit 
schakelaar voor de zoekmode. In deze mode 
(aangegeven door het gelijktijdig branden 
van de 3 toonindicators) kunnen alle tonen 
geprobeerd worden zonder dat zij gecontro- 
leerd worden. Voor alle hulptoetsen geldt dat 
het gebruik ervan geen punten kost maar de 
tijd blijft wel doorlopen. Met ESCAPE kun je 
het spel opnieuw beginnen als je er een potje 
van gemaakt hebt. 







Uitbreiding/verandering van de tunes is 
mogelijk in de dataregels vanaf regel 10000. 
Denk er aan dat de data niet uit gewone 
^kAY strings bestaat, maar uit een speciale 
verkorte notatie, die geheugenruimte spaart 
en door tunes gemakkelijker in te raden 
tonen omgezet kan worden. Dit heeft wel 
enige consequenties voor hetgeen is 
toegestaan. Zo mag de muziek slechts 3 
oktaven beslaan, 32e en 64e noten zijn niet 
toegestaan en dat zelfde geldt voor 
verlagingen (mollen). Een Des moet dus b.v. 
als een Cis weergegeven worden. De tunes 
kunnen niet meerstemmig gespeeld worden en 
volume of golfform zijn niet instelbaar. De 
tonen worden gespeeld met een enigzins pia- 
no-achtige klank om te voorkomen dat 
meerdere zelfde tonen achter elkaar als een 
lange toon klinken. Met RUN 9000 kan een 
hulpprogramma gestart worden om te 
controleren of nieuwe tunes goed klinken. 
Verander zonodig de restore op regel 9000 om 
niet alle voorgaande tunes te horen. 

Achter dit hulpprogramma staan in REM regels 
aanwijzingen hoe de muziekdata ingebracht 
moet worden. In een apart te saven/laden 
highscoretabel is niet voorzien. Maar als 
Tunes geBREAKT wordt en er is een 
verandering in de highscore, bestaat de 
mogelijkheid de nieuwe highscore in de data 
van het programma op te nemen. Ook aan het 
begin van Tunes verandert het programma 
zichzelf om een random restore in de 
muziekdata te kunnen genereren. Wees 
daarom voorzichtig met het hernummeren van 
programmaregels. 



Koen Jager 



10 TUNES by CW. JAGER CAPELLE AD IJSSEL 
20 ’ (c)89 MSX-GIDS 
30 ’ 

™ ’?^ UMMEK NIET DE REGELS 160,520,234© 
EN VANAF 10000 

80 ' 

90 'SCHERM & INITIALISATIE 

100 FORN=0TOT I ME- 1 NT (TI ME/100 > *100 : Q=RND ( 1 

) • NEXT 

110 SCREEN0: WIDTH40: COLORl, 1: CLS 

120 DR=30 : 'AANTAL DATAREGELS MUZIEKTUNES 

130 Q= 10000+ (INT (RND(1)*DR) )*10 

140 PRINT: PR INT” 520 RESTORE" ; Q: PRINT”RUN16 

150 GOSUB3440: END 

} SCREEN5 , 2 , 0 : SETPAGE2 , 2 : COLOR 1 1 , 1 , 5 : CLS 
170 CLEAR700: DEFSNGA-D: DEFSNGE-Z: 0PEN”GRP• 
"F0R0UTPUTAS#1 : RESTORE2120 
180 ONSTOPGOSUB4000 : STOPON: ONERRORGOTO4090 
190 ' BSCHERMOPBOUW 

200 GOSUB2000: PSET (104, 101) : GOSUB3010 
210 SETPAGE2 , 0 : C0L0R4 , 15: CLS: GOSUB2000 
220 PSET (78, 140) : GOSUB3010 
230 F0RN=1T08: READQS: Ql$='"’ 

240 F0RN1=1TQ63STEP2 : Q1$=Q1$+CHR$ (VAL ("&H" 
+MIDS (Q$, NI , 2) ) ) : NEXTN1 
250 SPRITES (N)=Q1$: NEXTN 

260 FQRN=1T06: READQ, Q1 : PUTSPRITEN, (Q,Q1),1 
4 , N: NEXT : COLORSPR ITE ( 1 ) = 15 
270 GOSUB3130 

280 SETPAGE2 , 1 : COLORl , 15 : CLS 

290 F0RN-37T0193STEP26 : PSET (N, 0) : DRAWD78F 

1R23E1U78” : READQ$ 

300 F0RN1=1T03: PSET (N+10, Nl*10+35) : PRINT#1 
,MID$(Q$,N1, 1 ) : NEXTN1 , N: C0L0R15, 1 
310 F0RN=53T0183STEP26 : IFN=105THEN340 

^?T 0 ,o I ? B<W,0)_<N+19 ' 38) ' 1 ' BF:LINE <®f+l,39)- 
(N+18,39), 1:READQ$ 



330 F0RN1=1T03: PSET (N+7, Nl*10-5) : PRINT#1 M 

IDS (Q$ , NI , 1 ) : NEXTN1 

340 NEXTN: COLORl, 15: PAINT(0, 0) , 13, 1 

350 FORN=95TO107STEP3 : L I NE (5 , N) - (250 , N) : NE 

XT 

360 LINE(0, 115)- (238, 118) , , BF 
3 NEXT° RN " 0TO58STBP2:LINB<N ’ 115)_(K ’ 118 >. 14 

380 COPY (0, 115)-(58, 118)TO(60, 115):COPY(0, 
115)- (118, 118)TO(120, 115) 

390 COPY (0, 115)- (238, 118) , 1T0(9, 175) , 0 

400 LINE (9, 119)- (107, 136) , , BF 

410 FORN=l 1TO101STEP9: PSET (N, 1 19) : READQ, 01 

,Q2,Q3,Q4,Q5,Q6 

420 DRAW”C=Q; R4D1L4G1C=Q1 ; D5L1U5BM+8, +0C=Q 

2; D5L1U5D5G1C=Q3; L4D1R4F1C=Q4; D5R1U5BM-8, + 

0C=Q5 ; D5R1U5D5F1C=Q6; R4D1L4" : NEXT 

430 SC$=” ” : GOSUB3060 

440 SETPAGE0.0: Q=0: Ql=9: Q1$=”N0G EVEN GEDU 

LD” : Q2=0 : GOSUB3160 

450 SETPAGE0, 3: COLORl, 10: CLS: GOSUB2000 
460 ’IINITIALISATIE 

470 FORN=0TO9: READAH(N) , HS4 (N) : NEXT: GOSUB3 
090 

480 DIMSX(36) , SY (36) , RN (32) 

490 F0RN=1T012: READQ, Ql: SX(N)=Q: SX(N+12)=Q 
: SX(N+24)=Q: SY (N)=Q1: SY (N+12)=Q1-10: SY(N+2 
4)=Ql-20: NEXT 

500 TS$=”zZxXcvVbBnNraaAsSdf FgGhHjqQwWerRtT 
yYu” : LN$=” 12489- . ” : KZ$=CHR3> (13) +CHRS (24) +C 
HR$ (27)+CHR$ (18) 

510 VH=0 : HS=0 
520 RESTORE 10000 
980 ’ 

990 ’ SPELLUS 

1000 COPY (2,0)- (253, 114) , 3TO(2, 2) 

1010 IFHS=0THENCOPY (103, 115)- (248, 205) , 3T0 
(103, 12) : GOTO1040 

1020 GOSUB3130: FORN=0TO90: COPY (103, 115)- (2 

48, 115+N) , 3T0 (103, 102-N) : NEXT 

1030 HS=0: VH=1: LINE (220, 161)-(222, 163), 14, 

BF 

1040 AS=0 : TM=750 : LA=9 : TS=0 : COPY (0,115)- (23 
8, 118) , ITO (9, 175) : SC$=” ” : GOSUB3060 

1050 IFINKEY$O"”THEN1050 

1060 Q=0: Ql=3: Q1$=”DRUK EEN TOETS OM TE SP 
ELEN” : Q2=0: GOSUB3160: COLORSPR ITE(l) =14 
1070 I F I NKEY$=” " THENQ= I NT ( RND ( 1 ) ) : GOTO 1070 
1080 ’ISTART (NIEUWE) RONDE 
1090 COLORSPRITE(1)=15: Q=0: Q1=0: Q2=0: GOSUB 
3160: COPY (2,0)- (253, 114), ITO (2, 2) 

1100 Q=INT (RND(1)*4) : FORN=0TOQ 
1110 READQS: IFQ$=" @@@" THENRESTORE 10000 : GOT 
01110 



1 120 NEXTN: GOSUB3220 : NG=0 : PB=NA*30 
1130 PSET ( 16 1 , 138 ) : PR I NT#1 , US I NG” ##” ; NA : PS 
ET (161, 148) : PRINTfl, USING”##” ; TM/50: PSET (1 
53, 158) : FR INT#1, USING”###” ; PB 

1140 PUTSPRITEÖ, (7, 94) , 4, 8: PUTSPRITE9, (7+N 
A*7, 94) , 4, 8 



1150 Q=l: Q$=”Druk RETURN om de tune te hor 
en” : Ql-1 : Ql$=”en de spelronde te starten ” 
: Q2=0: GOSUB3160 

1 160 COLORSPR I TE ( 1 ) = 14 : COLORSPR I TE (2 ) = 15 

1170 IFINKEY$OCHR$ (13)THEN1170 

1180 COLORSPR I TE (2 )= 14 : PLAYPLS 

1190 Q=1:Q$="RET= tune horen INS= zoekmo 

de ’ : Ql- 1 : Ql$=” SEL= te zoeken noot horen” : Q 

2=1: Q2$=”ESC= spel af breken” : GOSUB3160 

1200 IFPLAY (DTHEN1200 

1210 COLORSPR ITE(3)=15 

1220 ’ BHOOFDLUS SPELRONDE 

1230 TIME=0 

1240 GOSUB3390 

1250 I$=INKEY$: IFI$=””THEN1240 
1260 Q=INSTR(TS$, I$): IFQ=0THEN1380 
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1270 PUTSPRITE7, <SX(Q) , SY(Q) ) , 10: Q=Q+23: 01 
=SGN (Q-RN (NG) ) +2 

1280 PLAY"S1M15000L4T140N=Q; ’’ : IFTS=0THEN13 
10 

1290 GOSUB3390 : IFPLAY (1)0RINKEY$<>”"THEN12 
90 

1300 PUTSPRITE7, (0, 212) : GOTO1240 

1310 : ONQ1GOTO1320 , 1330 , 1340 

1320 COLORSPRITE (4>=9: GOTO1350 

1330 COLORSPR I TE (5 ) =2 : NG=NG+ 1 : PUTSPR I TE8 ( 

7+NGX7 , 94 ) , 4 : GOTO1360 

1340 COLORSPRITE (6) =9 

1350 PB=PB- (ABS (Q-RN (NG) ) ) X2 : IFPB<0THENPB= 
0 

1360 GOSUB3390: IFPLAY (l)0RINKEY$O"»THEN13 
60 

1370 PUTSPRITE7, (0, 212) : COLORSPRITE (3+Q1 )= 

14: IFNG<NATHEN1240ELSE1510 

1380 ONINSTR (KZ$, 1$) + 1GOTO1240 , 1390, 1420, 1 

450, 1480 

1390 PLAYPLS 

1400 GOSUB3390: IFPLAY (l)0RINKEY$O""THEN14 
00 

1410 GOTO1240 

1420 PLAY”S1M15000L4T140N=RN (NG) ; " 

1430 GOSUB3390 : IFPLAY (1)0RINKEY$<>"”THEN1 4 
30 

1440 GOTO1240 

1450 GOSUB3360 : IFHS=1THENHS=0: LIRE (220, 161 
)- (222, 163), 14, BF 

1460 F0RN=4T06: COLORSPRITE (N)= 14 : NEXT 
1470 GOTO1000 

1480 I FTS=0THENTS= 1 : COLORSPR I TE (4 ) =9 : COLOR 
SPR I TE (5 ) =2 : COLORSPR I TE (6 ) =9 : GOTO1240 
1490 TS=0: COLORSPRITE (4) =14: F0RN=4T06: COLO 
RSPR I TE (N) =14 : NEXT : GOTO1240 
1500 ’ BTUNE GEVONDEN 

1510 PLAY"sl3in200t25018o4cego5c” : GOSUB3360 
1520 AS=AS+PB: GOSUB3050: IFAS>AH (9)THENHS=1 
: L INE <220, 161)- (222, 163) ,9, BF 
1530 TM=TM-50: IFTM<150THENTM=150 
1540 GOTO1100 
1550 ’ BGAME OVER 

1560 PLAY” V 12T120O4L4CO3GE-C” : GOSUB3360 
1570 PUTSPRITE7, (0, 212) : F0RN=4T06: COLORSPR 
ITE (N)=14: NEXT 

1580 Q=0: Ql=12: Q1$="GAME OVER" : Q2=0: G0SUB3 
160: IFHS=0THEN1000 

1590 C0L0R1, 13: PSET (20, 85) : PRINT#1, "UW NAA 
M? (MAX. 12 TEKENS)" : Q$=”” : COLORSPRITE (1)= 
14 

1600 IFINKEY$O””THEN1600 
1610 I$=INKEY$: IFI$="”THEN1610 
1620 Q=LEN (Q$) 

1630 IFI$=CHR$ (8) THENIFQ>0THENQ$=LEFT$ (QS, 
Q-l) 

1640 I F I $=CHR$ ( 13 ) THEN1670 

1650 IFQ< 12ANDASC ( IS) >31THENQ$=Q$+ 1$ 

1660 PSET (80, 99) : PRINT#1, Q$; ” ”:GOTO1610 
1670 COLORSPR I TE ( 1 ) = 15 : HS$ (9 ) =Q$ : AH (9 ) =AS : 
Q=9 

1680 IFQ>0THENIFAH (Q) >AH (Q-l )THENSWAPAH (Q) 

, AH (Q- 1 ) : SWAPHSS (Q) , HS$(Q-1> : Q=Q- 1 • G0T0168 
0 

1690 GOSUB3090: GOTO1000 
1980 ’ 

1990 ’ SCHERMROUTINES + DATA 

2000 READQ: ONQGOSUB2020, 2040,2050,2060,207 

0,2080,2090,2100,2110 

2010 GOTO2000 

2020 RETURN2030 

2030 RETURN 

2040 READQ 1 , Q2 : C0L0RQ1 , Q2: RETURN 

2050 READQ1 , Q2 : SETPAGEQ1 , Q2: RETURN 

2060 READQ 1 , Q2 , Q3 , Q4 : C0L0R= (Q1 , Q2 , Q3 , Q4 ) : R 

ETURN 



2070 READQ1 , Q2 , Q3 , Q4 , Q5 : L INE (Q1 , Q2 ) - (Q3 , Q4 
),Q5,B: RETURN 

2080 READQ 1 , Q2 , Q3 , Q4 , Q5 : L INE <Q1 , Q2 ) - (Q3 , Q4 
),Q5,BF: RETURN 

2090 READQ 1 , Q2 , Q$ : PSET (Q1 , Q2 ) : PR I NT# 1 , Q$ : R 
ETURN 

2100 READQS : DRAWQS : RETURN 
2110 READQ1 , Q2 : PSET (Q1 , Q2 ) : RETURN 
2120 DATA5, 81, 80, 174, 132, 11,6,90,95, 165, 11 
8, 11 

2130 DATA7, 89, 84, WELKOM BIJ , 2, 15, 1, 7, 85, 12 
2, EVEN GEDULD, 2, 1, 11, 1 

2140 DATA5, 0,0, 255, 118,4,5, 1 , 1 , 254, 117, 4, 2 
,7, 1,9,0, 1,8, Dl 17C5R1C7R253H1L252C5U1C7U1 1 
4,6,0, 119,255, 122,5,5,0,123,255,211,4 
2150 DATA5, 1, 124,254,210,4,9,0, 124,8, D87C5 
R1C7R253H1L252C5U1C7U84 , 6 , 2 , 125 , 253 , 209 , 1 , 

5.4. 130.61. 169. 15.5.65. 130. 138. 169. 15 
2160 DATA5, 142, 130, 179, 169, 15, 5, 183, 130,25 
1, 169, 15, 2, 15, 1, 7, 145, 127, INFO, 7, 197, 127, S 
CORE, 7, 186, 159, HIGH, 7, 80, 159, by CWJ, 7, 145, 
138, ;, 7, 144, 148, 1,7,145,158,+ 

2170 DATA5, 218, 159,224, 165, 15,6,220, 161, 22 
2, 163, 14,6, 152, 136, 176, 166,3,5,4, 173,251, 1 

80.15 

2180 DATA6, 4, 184,251,207,3,4,4,2,2,7,4,5,3 
,3, 7, 4, 7, 3, 4, 7, 4, 14,2,2,2,4, 13,6,6,6,4,3,5 
,7,5, 1 

2190 DATA FFFCFBF7F3F4F7F7F7F7E7977B9CE7F8 
FF3FDFEBC52DEDE5BBEFE7E9DE39E71F 
2200 DATA FFFFFFFFFFFFFEFCFAF6EFF6FAFCFEFF 
FFFF87B7B7B7B7B7B767CF1FFFFFFFFF 
2210 DATA FFFFE4C28EDFDEBE8EBFDFDFEEF2FCFF 
FFFF4F87E3F7F7FBE3FBF7F7EF9F7FFF 
2220 DATA 00000000070707077F3F1F0F07030100 
00000000C0C0C0C0FCF8F0E0C0800000 
2230 DATA 0079CDCDCDCDCDCDCDCDCDCDCDCD7900 
00868C889890B0E0E0B0988C86838100 
2240 DATA 000103070F1F3F7F0707070700000000 
000080C0E0F0F8FCC0C0C0C000000000 
2250 DATA FFFFFFE0E0E0E0E0E0E0E0E0FFFFFF00 
F8F8F8383838383838383838F8F8F800 
2260 DATA 08141414141818103058B4B454381020 
00000000000000000000000000000000 
2270 DATA7 , 132,25, 132,43, 132, 7, 150,25, 150, 
43,150 

2280 DATAqaz, wsx, ede, rfv, tgb, yhn, ujm, QAZ, V 
SX, RFV, TGB, YHN 

2290 DATA14, 14, 14, 14, 14, 14, 14, 9, 9, 9, 14, 9, 9 
,9,14, 14,9, 14,9, 14,14,9,14,9,9, 14,9,9 
2300 DATA9, 14, 9, 9, 9, 14, 9, 14, 9, 9, 9, 9, 14, 14, 
9,9, 14,9,9, 14,9,9,9, 14,9,9,9,9 
2310 DATA9, 14, 9, 14, 9, 14, 14, 9, 9, 9, 9, 9, 9, 9, 9 
,9,9,9,9,14,9 

2320 DATA5, 100,5,253, 103, 1,6, 103, 10,248, 10 
0, 1,7, 137, 2, DE TOPPERS 

2330 DATA7 ,20, 10, DRUK EEN, 7, 20, 25, TOETS EN 
,7, 24, 40, MEET UW, 7, 20, 55, MUZIKALE, 7, 26, 70, 
GEHOOR, 7,20,85, MET DEZE, 7, 20, 100, GIGANTEN, 

2340 DATA12000, W. A. Mozart, 11000, J . S. Bach 
, 10000, G. Verdi, 9000, G. Gershwin, 8000, M. R 
avel, 7000,1. Berlin, 6000, H. Mancini, 5000, E 
. Morricone, 4000, L. Bernstein, 3000, R. v. Ott 
erloo 

2350 DATA43, 63, 56, 22, 69, 63, 82, 22, 95, 63, 121 
,63, 134,22, 147,62, 160,22, 173,63, 186,22, 199 
, 63 

2980 * 

2990 ’ ALG. ROUTINES 
3000 ’BTITEL 

3010 DRAW”L4D12LlU12L4UlR9BM+5, +0D11F2R5E2 
U11L1D11G1L5H1U11BM+13, +0D13R1U13D2F6D1H5D 
1F6D2U13R1D13" 
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f ® 2 ® DRAW” BM+5 , - 13R9D1L8D5R6D1L6D5R8D1L9Ü1 
3BM+16.+0R5F2D1L1U1H1L5G1D3F1R5F2D3G2L5H2U 
1R1D1F1R5E1U3H1L5H2U3E1” 

3030 RETURN 

3040 '13C0RE PRINTEN 

3050 SC$=>' ”+STR$ <AS) : SC$=RIGHT$ (SC$, 5) 
3060 F0RF=1TQ5: S=INSTR (” 0123456789” , MID$ ( 
SCS F 1) ) ' ' 

3070 COPY (S*9, 119)- (S*9+8, 136) , 1T0(F*12+17 
7 , 138 ) , 0 : NEXTF : RETURN 
3080 ’iHIGHSCORE TABEL 

3 FTo L S A f' 3:LINE<103 * 115)-<:248,2 ® 5) > !* B 

3100 FORF=0TO9: PSET(105, F*9+116) : PRINT#1 U 

S ING” #####" ; AHCF) ; : PRINT#1, " ";HS$(F) ’ 

3110 NEXTF: SETPAGE0, 0: RETURN 

3120 - BPLAY EINZUG DER GLADIATOREN 

3130 PLAY”T175S1M8000L8O4GG#AA#BO5CC#DD#EF 

F#GG#AB06C405B4B-BB-AL4A-GF#GAA-L8GA-GF#L4 

FED#EL8GR8FFC#4D4GR8FFC#4D404B05CC#DD#EFF# 

GG#ABA4G4” 

3140 RETURN 

3150 ’*TEKSTDISPLAY 

3160 LINE (4, 184)- (251, 207) , 3, BF: COLOR14, 3 
3170 IFQ>0THENPSET(Q*8-4, 184) : PRINT#1 , Q$ 
3180 IFQ1>0THENPSET(Q1*8-4,192):PRINT#1,Q1 
s 

3190 IFQ2>0THENPSET (Q2*8-4, 200) : PRINT#1, Q2 
3200 RETURN 

3210 ’iPLAYS SAMENSTELLEN 

3220 NA=0: Ql$=”4” : PL$=»S1M15000L4T”+LEFT$ ( 

Q$, 3) 

3230 FORF=4TOLEN (Q$) : Q2$=MID$ (Q$, F. 1) 

3240 ONINSTR(LN$, Q2$) +1GOTO3320, 3250.3260, 
3270,3280,3290,3300,3310 
3250 PL$=PL$+”L1” : Ql$=” 1» ; GOTO3340 
3260 PL$=PL$+”L2" : Ql$=”2” : GOTO3340 
3270 PL$=PL$+”L4” : Ql$=”4’’ : GOTO3340 
3280 PL$=PL$+”L8" : Ql$="8" : GOTO3340 
3290 PL$=PL$+”L16” : Ql$=” 16” : GOTO3340 
3300 PL$=PL$+"R"+Q1$: GOTO3340 
3310 PL$=PL$+" . ” : GOTO3340 

3320 S= I NSTR (TS$ , Q2$ ) : IFS=0ORNA>32THENGOTO 
3340 

3330 Q2$=STR$ (S+23) : Q2$=RIGHT$ (Q2$, LEN(Q2$ 

) - 1 ) : PL$=PL$+" N” +Q2$ : RN (NA ) =S+23 : NA=NA+ 1 
3340 NEXTF: RETURN 
3350 -«SPEELVELD SCHOON 

3360 COLORSPR I TE ( 3 ) = 1 4 : COLORSPR I TE ( 1 ) = 1 5 : L 
INE (4, 184)- (251, 207) , 3, BF 
3370 LI NE (152, 136)- (176, 166) , 3, BF: PUTSPRIT 
E8, (0,212) : PUTSPRITE9, (0, 212) : RETURN 
3380 ’ITIJD BIJHOUDEN 
3390 I FT I ME< TMTHENRETURN 

3400 LINE (LA, 175)- (LA, 178) , 9: LA=LA+2: IFLA> 
247THENRETURN1560 

3410 PSET (153, 158) : PRINT#1, USING”###” ; PB 
3420 TIME=0: RETURN 
3430 ’ «2 RETURNS IN KEYBOARDBUFFER 
3440 P0KE&HF3FA , &HF0 : POKE&HF3FB , &HFB : POKE& 
HF3F8, &HF2: P0KE&HF3F9, &HFB: POKE&HFBF0 13: P 
OKE&HFBF1, 13 
3450 LOCATE0 , 0 : RETURN 
3980 ' 

3990 ’ ONSTOP/ERROR AFHANDELING 

4000 SCREEN0 , , 1 : VIDTH40: COLOR1 , 15: IFVH=0TH 
BNEND 

4010 IFINKEY$O"”THEN4010 
4020 PR INT” DE NIEUWE HIGHSCORETABEL OPNEME 
N IN HET PROGRAMMA? DRUK DAN 
4030 I$=INKEY$: IFI$=””THEN4030 
4040 CLS: IFI$<>” J”ANDI$<>” j”THENEND 
4050 PRINT: PR INT” 2340 DATA”; 



4 t 0 ^?t^? RN=0TO9: Q $= STR$ (AH (N) ) : Q$=RIGHT$ (Q$ 
) ~i ) ’’ PRIWTQ$; ” ' ” ! : IFN<9THENPRINTHS$ 
(N);”,”; : ELSEPR I NTHS$ (9 ) 

|?4 0 T 5 B ÏF; r S R P T: pp INT: PR INT” DE HIGHSCORED 
ATA IS NU VERANDERT ZORG ZELF VOOR HET 
SAVEN VAN -TUNES 1 .» 

4080 GOSUB3440: END 
4090 SCREEN0 , , 1: VIDTH40: COLOR1, 15 
4100 PRINT”Fout nr. ERR: PRINT 
4110 ONERRORGOTO0 : ERRORERR 
8980 ' 

8990 -HULPPROGRAMMA TUNES HOREN 

9000 CLEAR700: RESTORE10000: ’ VERANDER DIT Z 

ONODIG OM ELDERS IN DE DATA TE BEGINNEN 

9010 TS$=”zZxXcvVbBnNjnaAsSdfFffGhHjqOwWerRt 

TyYu" : LN$=” 12489- , -- : DIMRN (32)* J( l ywWerRt 

9020 READQ$ : I FQ$=” @@@” THENRESTORE10000 : GOT 
09020 

9030 CLS: PR I NT" DATAREGEL : ” ; PEEK(&HF6A3)+25 
6*PEEK (&HF6A4) : PRINT: PRINT”DATA$: ";Q$ 

9040 GOSUB3220 : PR I NT : PR I NT” PLA Y$ • "•PL$-PR 
INT: PR INT” AANTAL TONEN: NA: PLA YPL$ ’ 

9050 I FPLAY ( 1 ) THEN9050 

9060 PRINT: PRINT" 1=ZELFDE TUNE 2=V0LGEND 
E TUNE” 

9070 I$=INKEY$: IFIS=”"THEN9070 

9080 ONINSTR (” 12" , I$)+1GOTO9070, 9030, 9020 

9090 ’ ’ 

9100 -AANWIJZINGEN MUZIEKDATA 
9110 ’ De tunes kunnen alleen gespeeld word 
en in het bereik van oktaaf 3 t/m 5. Er io 
gen max. 33 tonen (rusten niet meegeteld) 
in een tune voorkomen. 

9120 ’ De tonen worden aangegeven zoals in 
onderstaande tabel, waarbij de onderste van 
iedere 3 letters oktaaf 3 aangeven en de 
bovenste oktaaf 5. 

9130 Een verandering van de toon/rust— len 
gte wordt met alleen het cijfer, dus zonder 
”L” aangegeven. Plaatselijke lengteaanduid 
ingen zijn niet mogelijk. Default is L4. 

9140 -De cijfers zijn; 1,2, 4, 8 zoals in het 
PLAY statement en 9 voor 16e noten. 32e en 
64e noten zijn niet toegestaan. Een verlen 
gingspunt achter een noot of rust mag wel. 
9150 'Een rust wordt met "-” zonder lengt4 
aanduiding aangegeven. Elke data$ verplich 
t beginnen net de tempoaanduiding in 3 cijf 

9160 -Pas bij verandering van het aantal da 
taregels, ook regel 120 aan en sluit de da 
ta altijd af met ”@@@” 

9170 - 

9180 ’ Q W R T Y 

9190 ’ A S F G H 

9200 ’qZwXe rVtByNu 
9210 ’a s d f g h j 

9220 ’ z x c v b n m 

9980 ’ 

9990 'MUZIEKDATA 

10000 DATA160wewe8w4e2w8-4jqjq8j4q2j , 1308s 
sss4dsg2g. 8gggg4hglj , 190hqqq2H4h2q. 4— qwHw 
2r4w2q. , 1408m4ma8s4s8s4ds8F4F ^ 

10010 DATA125afghfHhglf , 1608g. 9G8h. 9G4h. 8G 
lh, 1208 j q4w. 8w4wwwqjqwwqj2g. , 110aa8s4f8s4a 
aös4f 

1 0 020 DATA120gq2e. 4wq. 8j4qhlg, 160e. w8jq4w8 
J 9^w8qj 4h, 1358sSd4q8d4q8d2q. , 1358dabnmasds 
asdfFghg9df8F4g8hg 

10030 DATA2002m. s4Hlj . 4Fhg2s4A2a, 190eq-eq- 
et8teqe4w, 1702qw. 4h2q4qj 1H, 1809gggg4d$rff9(rtr 
g S 4fgg9gggg4dgjh8gFfd4s 5SSS SS SS 

10040 DATA1602qq8q2w8q4w8qw4q8j 1H, 1202fr4e 
8qw4er2f wq, 1304wlw4g. q. 8jhj Ih4-8j4wlw, 1408 
q2q. 8-g2g . 8-dld. 8-asd2g8-asd2h8-asd2fg. 
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10050 DATA150J jqwwqjhgghj j . 8h2h, 150q. 8GGq4 
q. 8GGq4QqHq, 110a8ma4a8ina4f 8df 2q4H8hg4hgf 8d 
s4ds, 160s. 8g4H. 8H4F. 9gh2g4S. 9fg2s9aNNn8n. 9 
s4b 

10060 DATA160hw8we4Rw2y4R. 8R4t8ytRt4y8eweR 
4e, 2002a8sfds4gg8ghdf4ss, 110w8ww4HH8HhHq2f 
, 1602q4w. 9qw4e. 8r4ewqwe8wq4wggg 
10070 DATA160gqwe2r4weqw8qj hgh j 4qwerweqwj q 
, 160s2g. 4h2j . 4FdFdFdsssls4-ddd2d4a, 190w. 8w 
lw4u. 8ulu4j . 8j2j4q2e4wlw, 1902s4d. 8s4AsAs2g 
g. s4d. 8s4msghlj 

10080 DATA180dg2Mdg2h4gdgls, 120g2q4g2j 4g2 
h4dd. 8ghg4h. 8ghg4h. 8ghg2h4m2m, 120g2g4qqjh2 
F4h2g. g. f . h. g, 170qwe8qg4hq2q4qwe8qg4hw2w4- 
qqwweer2t8erqew2w 

10090 DATA1402q. 4j2q. 4h8H4H8h4Hqlh, 1208asd 
SdS4d . 8S4d. 8f4dls, 1208gFhggFhgda4n2b8qj jhh 
ggdfg2s. , 140gF2g4-GhGg8gf2d 
10100 DATA120gg. 8hgd4adq2 j 4w2f , 1202g. 4w2q4 
j . 8hgf2g4aj . 8hgf2g4als, 130d8a4d. 8adada4da8 
-4d8a4d. 8f4dS2s, 160dlg4dadglMdadgjqjqjqwq 

lg 

10110 DATA130jqw2e. 4weytewq2h. , 160asdhlh4g 
f dala4asdj j j j qj qhglg, 180g2q4 j q2w4qw2e4re2h 
4 ww2q4qq2 j 4h j lq , 160gqqh j j gqqh j j gqqhj j gf 2s 
10120 DATA160e2e4r2e. 4w2q. 4hg2q. , 1802jg4s2 
g. jg4h2h. 2jg4q2q4qjghFlg, 1208f g 4H2H8wr4t2t 
8t.9r8r4W. , 1208g2a.-8asSag2a.-8asSag2a.-8s 
Sfslg 

10130 DATAl308gh4jw2F. 8dF4gb2s. 4asS2s4sdFg 
2h, 130r8rrlr4r8ew4r8rrlr4r8ew4e8eele, 190j j 
j J J j 2g8j H4hhj h2d8-dgg4FFFFg2F8dF4dsssls, 16 
0gj lq. 2we4wq2 j 4hghhlh 

10140 DATA1308ee4e8wqjwlq8yy4y8tret2r, 0908 
eheeyyTyeewqj4h. , 1108msg4j . j8g4s. s8d4s. 2s. 

, 150dg2h8d4g. 2h4dgwq8q4j2h8d4g. Is 
10150 DATA1508qw4ee8w4q. 8wqwqe4t. 8wqwqwqw4 
e . 9wq4 j , 1208g. 9g8g. 9g4hge2e. , 1902af g4hhhf2 
H. 4hg2f . 4-afg2h4h2H. 4h2g, 090w8we2r8-9rr8re 
treq4h8hH2q 

10160 DATA190rwqh2eewlh.4wQwW2eqlh, 180gdfF 
geq2g4ffd2f , 180q2r. e. t. r. 2w4r2w4rlw4qw2e. w 
. lH4hH2w. q. lh, 1308tttttt4R8w4q. tR8w4q. R8e4 
w. 

10170 DATA1202h4H2q4wqwelr8tyYt4ertqwHlh, 2 
00 gqqqqqqqq Wq 1 - 8q w4 Wq wHqGHgG f gSf sSas , 1 20 2 g 
-8hj q j q4 j 8h4 j 8q j q4 j 8h4 j 2q, 190w8ww4We . 2q4-t 
8RR4ew. 2j4- j j qwwwewqj qlw 

10180 DATA1208F4g2h4-8Fg4hwQ. 8j lg, 175a2s4f 
h2q4Qwqhlq4w2q4h2qwlh, 120s2 j 8Hj 2h4 j 2G4d2h4 
dgdgFsFld, 1008ad4f8g4h8f2a8hf 4q8g4h8f2a 
10190 DATA1308hhhf4a8af4h8hf 4gg, 1302ww8sgj 
4w8wjgsFj2w, 1202hqf . 8gh4Hhgf2hg, 130sj . 8Fld 
8sdFFdsld4-sq. 8Fld8sdFFdsld 
10200 DATA1308a4hh. 8hHhgfghlH, 1108j4g. Iw8- 
wweeRRuuttwwj j w2wh, 1908qq4f hqwWq8hf gf 4qHGf 
q8H4G, 1802a. 4sdgjh2g. 4flm2g. 4GjgsSld 
10210 DATA1608qjq4g8ghjqjq4g8ghHjHj2f , 1508 
gfgf4da~8dfgfgfdfghHhHhlg, 1702d4fg2MgF2hl 
g. 2d4fg2q4jglf , 1608dfF2g8 — ghjqwqdhg 
10220 DATA160qqq8qhfaHgdafghq2-8qhfaHgdafg 
hq, 140hwe2R. 4eRtyu2u8ytRe, 1408dg2-. 8dgdgdg 
dgfgl-8fg2-. 8fgfgwjgf4d, 1208mmaaminddiiffliggFd 
4 F8 nmia amraFFmmhhgF4 g 

10230 DATA1302j4h. 8g4Fd2s4d8gF4g. 8dsd4s2m, 
1408dfgggghhhhh2g8dfggggqqjg2f . , 120q2h8-hq 
w2g. 8gh4Hr . 8reqwq2h, 0709dg8gghdggqweeewwq4 
q8eereew-9ew8w2q 

10240 DATA200sdFshFjh2w4bFls, 1602dd4d8f d4s 
am8hh4hh2gd, 1208afh4q8qw4q8Hh4qq8-afh4q8qw 
4q8Hh2H, 1102t4R. 8w2j8gwj2Q8heQlw 
10250 DATA1008dfd4f2g8fd4s2s8fd4f lg, 160gFf 
ld4wqgdlS4q2j . 4qjqjqjGdlj , 140dgq2j4q2j . 8dg 
4j2h4j2h. 8dg4h2g4hg2f4dlh, 1602q4gds2a4s2d4 
g2qj 4q2w4sd2Fblw 



10260 DATA140g. 8hgF2f 4hglq4q. 8wqj2q4hlg, 10 
08jqQ4wqhgfsfhele8wqGf4s. 8w4qg2q, 160a8sa4s 
Id4d8fd4f lF4F8gF4gh. 8fgF4gh. 8fgF4glh, 1602g 
4Fg2sd4gFFf 1F2 h4Gh2sh4hggh 1 j 
10270 DATA130a2q. 4q2H. 4qhHhf2N. 4fhHhw2g. 4s 
ghHw2d. , 1008m2d8FdS2m8iii2d8FgF2s8s2g8Fgh2d8 
h2H8FH2j , 1208eeeeert4q. 8qhqwe4h. 8hgh4q. 8h4 
g. , 1202q. q. 8Hqlw8Hq2w. 4qHlq 
10280 DATA150sA2a4fb2q. 4QwwHg2s4sS2d4wq2sH 
lh, 1301q8HqwqqHlq8ghHhhglh8fghfff lf , 1901q4 
hqh2q4hlFj4gjg2j4gld, 190jq2ww. 4weR2tlu4uy2 
tle2tlw 

10290 DATA1108msg4j . j8g4s. s8d4s. 2s. 8msg4j . 
j8g4s. s8d2s. , 1608rrttww4r8rrttww4r8rrttuu4 
yytre, 155hqq8wewq2h. 4q2r4we8q2H4qww8erew2H 
. 4q2e4re8w2q, 1202s4As2S4sS2d4Sd2q. 8jq4jhhg 
gFFglh 

10300 DATA”@@@” 
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PUZZEL 



1 ’ mm****************:m**** 

2 ' % % 

3 ’ * PUZZEL * 

4 ’ * * 

5 1 # Door: Hans Sluijter 4: 

6 ’ * t 

7 ’ * (c> 1989 MSX Gids Lelystad * 

8 ’ t * 

9 ' ***************ttt*z***t*t*** 

10 KEYOFF : C0LQR15 , 13, 13: CLS: DIMF(9, 2) 

20 GOSUB4000: L0CATE9, 12: PRINT” Wil je uitle 
S ? (J/N)” 

30 U$=INKEY$: IFU$=””THEN30 

40 I FU$=" J ” ORU$=” j ’’ THENGOSUB1500 

50 CLS: L0CATE5, 12: PR INT” Wil je de puzzel z 

ien ? (J/N)” y 

60 K$=INKEY$: IFK$=”"THEN60 
7 0 I FK$=” J” ORK$=" j ” THENGOSUB830 
80 SCREEN3, 0,0: RESTORE3000: F0RI=1T09: S$="” 
90 FORJ=1T08: READS: S$=S$+CHR$ (S) : SPRITES (I 
)=S$: NEXT : NEXT 

99 * 

100 ' +++ Scherm opbouw +++ 

110 SCREEN3 

120 RESTORE3100: F0RP=1T09 
130 N=INT(RND(-TIME)*9)+1:F=0 
140 F0RJ=1T09: IFF(J, 1)=NTHENF=1 
150 NEXT 

160 IFF=1THEN130 

170 F(P, 1 ) =N: GOSUB900 

180 Q=INT(RND(1)*2)+1: F(P, 2)=Q 

190 ONQGDSUB1000, 1100: NEXT 

199 ' 

200 ’ +++ Sprites plaatsen +++ 

210 F0RY=54T0182STEP64 

220 FORX=44TO204STEP80 

230 Z=Z+1:PUTSPRITEZ, (X, Y) , 15 

240 NEXT: NEXT 

299 ’ 

300 ' +++ Hoofd lus +++ 

310 PLAY” V10T100O4L4FR64L8F. R64L16FR46L4FR 
64CR64 

320 K$=INKEY$: IFK$=’”’THEN320 

330 IF K$=” S” THEN800 

340 K=VAL (K$> : IF K<1ORK>9THEN300 

350 L$=INKEY$: IFL$=””THEN350 

360 L=VAL(L$) : IFL=0THEN500 

370 F0RP=1T09 

380 IFK=F(P, DTHEN400 

390 NEXT 

400 R=P: N=L: Q=F(P, 2) : GOSUB1200 
410 F0R0=1T09 
420 IFL=F <0, DTHBN440 
430 NEXT 

440 R=0: N=K: Q=F (0, 2) : GOSUB1200 

450 F (P, 1)=L: F (0, 1)=K 

460 GOSUB600 

470 GOTO300 

499 ' 




500 ’ +++ Omdraaien +++ 

510 F0RP=1T09 

520 IFK=F <P, DTHEN540 

530 NEXT 

540 I FF (P , 2 ) = 1THENF (P , 2 ) =2ELSEF (P , 2 ) = 1 
550 Q=F <P , 2 ) : N=K : R=P : GOSUB1200 
560 GOSUB600 
570 GOTO300 

599 ' 

600 1 +++ Controle +++ 

610 F0RP=1T09 

620 IFF <P, 1 ) = P ANDF ( P , 2 ) = 1 THENNEXTBLSERET UR 
N 

630 GOSUB800 

699 ’ 

700 ’ +++ Nog een keer +++ 

710 SCREEN0: L0CATE8, 12: PR INT" Wil je nog ee 
n keer (J/N)” 6 

720 K$=INKEY$ 

730 I FK$=” J" 0RK$=” j ” THEN760 
740 I FK$=” N” 0RKS=” n” THENEND 
750 GOTO720 

760 F0RP= 1T09 : F (P , 1 )=0: F <P, 2)=0: NEXT: Z=0: G 
OTO100 

799 1 

800 * +++ Volledige puzzel +++ 

810 F0RI = 1T09: PUTSPRITE(I) , (-32, -32) , 1 : NEX 

820 CLS: PLAY” V10T100O4L4FR64L8F. R64L16FR46 
L4FR64CR64AR64L8A . R64L16AR64L4AR64FR6405CR 
64L8C. R64L16CR64L8DR64CR6404B-R64AR64L4GR6 
4GR64GR6405” 

830 SCREEN3 : CLS: RESTORE3100 

840 LX=32: LY=24 

850 FOR I = 1 T03 : FOR J = 1 T03 

860 FORY=LYTOLY+44STEP4 : FORX=LXTOLX+60STEP 
4 



870 RE ADB: FSET(X, Y) , B: NEXT: NEXT 
880 LX=LXt64 : NEXT : LX=32 : LY=LY+48 : NEXT 
890 FORT=1TO5000: NEXT: RETURN 



900 ’ +++ Coördinaat bepaling +++ 

910 X= I NT ( ( ( (N-D/3- (N-l)\3)*240)+. 5) + 16 
920 Y=INT ( (N-l)/3)*64+4 
930 RETURN 

999 ’ 

1000 ’ +++ Segment tekenen +++ 

1010 F0RLY=YT0Y+44STEP4 : FORLX=XTOXt60STEP4 
1020 READB 



1030 PSET (LX, LY) , B 
1040 NEXT: NEXT 
1050 RETURN 

1099 1 

1100 ’ +++ Segment op z’n kop +++ 

1110 F0RLY=Y+44T0YSTBP-4 : FORLX=X+60TOXSTEP 



9 



1120 READB 
1130 PSET (LX, LY) , B 
1140 NEXT : NEXT 
1150 RETURN 

1199 • 

1200 ’ +++ Data zoeken 

1210 RESTORE3100: IFR=1THEN1230 

1220 FORI=lTO<R-l)*192: READB; NEXT 

1230 GOSUB900 

1240 ONQGOSUB1000, 1100 

1250 RETURN 

1299 ’ 

1500 1 +++ Uitleg +++ 

1510 H$=” Puzzel ” : CLS; WIDTH40: LOCATE1, 1 : F 
0RI = 1TQ38: PRINT”*” ; : NEXT; LOCATE20-LEN <HS ) / 
2, 1;PRINTH$: PRINT 

1520 PRINT” Dit spel is gemaakt voor de kl 
einere onder ons, die graag puzzelen. 

Nu dat kan dan nu met de computer. 

”: PRINT 

1530 PRINT” Op het scherm verschijnt een p 
uzzel bestaande uit 9 stukjes, willeke 

urig verdeelt en sommige staan zelfs op 
hun kop.”; PRINT 

1540 PRINT” Wanneer je de eerste tonen van 
het muziekje hoort kun je beginnen.” 

: PRINT 

1550 PRINT” D.m. v. het indrukken van de ci 
jfers die onder de stukjes staan, kun 
je de stukjes verwisselen. Door het indr 
ukken van de 0 (nul) kan men het stukje 
omdraaien. ” ; PRINT 

1600 L0CATE8, 22: PR INT” Geef toets om te beg 
innen” 

1610 T$=INKEY$: IFT$=””THEN1610 
1620 RETURN 

2999 ■ 

3000 * +++ Data sprites +++ 

3010 DATA238, 206, 174, 238, 238, 238, 130,254 
3020 DATA198, 186,250,246,206, 190, 130,254 
3030 DATA198 , 186 , 250 , 230 , 250 , 186 , 198 , 254 
3040 DATA246, 230, 214, 182, 130,246,246,254 
3050 DATA130, 190, 142,246,250,246, 142,254 
3060 DATA230, 222, 190, 134, 186, 186, 198,254 
3070 DATA130 ,186,246, 238 , 238 , 238 , 238 , 254 
3080 DATA198, 186, 186, 198, 186, 186, 198,254 
3090 DATA198 , 186 , 186 , 194 , 250 , 246 , 206 , 254 

3099 * 

3100 ' +++ Stukje 1 +++ 

3101 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 
15, 15, 15, 15, 15 

3102 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 
15 15 15 15 15 

3103 DATA15* 15, 15, 15, 15, 15, 14, 14, 14, 14, 15, 
15, 15, 15, 15, 15 

3104 DATA15, 15, 15, 15, 14, 14, 14, 14, 14, 14, 14, 
15, 15, 15, 15, 15 

3105 DATA15, 15, 14, 14, 14, 14, 14, 14, 14, 14, 14, 
14, 14, 15, 15, 15 

3106 DATA15, 15, 15, 14, 14, 14, 14, 14, 14, 14, 14, 
14, 14, 14, 15, 15 

3107 DATA15, 15, 15, 15, 15, 15, 15, 14, 14, 14, 14, 

14, 15, 15, 15, 15 

3108 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 

15, 15, 15, 15, 15 

3109 DATA15 > , 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 

15,15,15,15,15 

3110 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 
15, 15, 15, 15, 15 

3111 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 
15, 15, 15, 15, 15 

3112 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 

15,7,7,7,7 

3199 ’ 



3200 ’ +++ Stukje 2 +++ 

3201 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 

15, 15, 15, 15, 15 

3202 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 

15, 15, 15, 15, 15 

3203 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 
15 15 15 15 15 

3204 DATAlö’, 15,15, 15, 15, 15, 15, 15, 15, 15, 15, 

15.15.15.15.15 

3205 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 
15, 15, 15, 15, 15 

3206 DATA15, 15,7, 15, 15, 15, 15, 15, 15, 15, 15, 1 

5. 15, 15, 15, 15 

3207 DATA15, 7,7, 15, 15, 15, 15, 15, 15, 15, 15, 15 
, 15, 15, 14, 14 

3208 DATA15, 7, 7, 7, 15, 15, 15, 15, 9, 15, 15, 15, 1 
5, 15, 15, 14 

3209 DATA15, 7, 5, 7, 7, 7, 15, 15,9, 15, 15, 15, 15, 

15. 15. 15 

3210 DATA15, 7, 5, 7, 7, 7, 7, 15,9, 15, 15, 15, 15, 1 

5. 15. 15 

3211 DATA7 ,5, 5, 5, 7, 7, 7, 9, 9, 9, 15,15,15,15,1 
5, 15 

3212 DATA7, 5,5,5, 12, 3, 7, 9, 9, 9, 15, 15, 15, 15, 

15.15 

3299 ’ 

3300 ’ +++ Stukje 3 +++ 

3301 DATA15, 15, 15, 15,15, 15, 15, 15, 15, 15, 15, 
15, 15, 15, 15, 15 

3302 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 

15. 15, 15, 15, 15 

3303 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 

15.15. 15. 15. 15 

3304 DATA15, 15, 15, 15, 15, 14, 14, 14, 14, 14, 15, 

15.15. 15. 15. 15 

3305 DATA15, 15, 15, 14, 14, 14, 14, 14, 14, 14, 14, 
14 15 15 15 15 

3306 DAT Al 4*, 14, 14, 14,14, 14, 14, 14, 14, 14, 14, 

14. 14. 14. 14. 15 

3307 DATA14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 
14 14 14 14 15 

3308 DATAu’, 14, 14, 14, 14, 14, 14, 14,14, 14, 14, 
14, 14, 14, 15, 15 

3309 DATA14, 14, 14, 14, 14, 14, 14,14, 14, 14, 14, 

14. 14. 15. 15. 15 

3310 DATA15*, 15, 14, 14, 14, 14, 14, 14, 15, 15, 15, 
14, 14, 15, 15, 15 

3311 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 

15. 15. 15.15. 15 

3312 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 

15, 15, 15, 15, 15 

3399 ’ 

3400 ’ +++ Stukje 4 +++ 

3401 DATA15, 15, 15,15, 15, 15, 15, 15, 15, 15, 15, 

7, 7, 9, 7, 7 

3402 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 

7, 7, 9, 7, 7 

3403 DATA15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 7, 7 
,9, 9, 9, 5 

3404 DATA15, 15, 15, 15, 15, 15, 15, 15,15, 15, 7, 7 
,9, 9, 9, 5 

3405 DATA7, 15, 15, 15, 15, 15, 15, 15,7,7,7,7,9, 
9,9,5 

3406 DATA7.7, 15, 15, 15, 15, 15,7,7,7,7,9,9,9, 
9,9 

3407 DATA7, 7, 7, 15, 15, 15, 15, 7, 7, 7, 7, 9, 9, 9, 9 

,9 

3408 DATA7, 7, 7, 7, 7, 7, 7, 7, 5, 5, 10,9, 10,9, 10, 
9 

3409 DATA7, 7, 7, 7, 7, 7, 7, 5, 5, 5, 10, 10, 10, 10,1 

0 , 10 

3410 DATA7 ,5, 5, 5, 5, 5, 5, 5, 5, 5, 12, 11, 11, 11,1 
1 , 11 

3411 DATA5 ,5, 5, 5, 5, 5, 5, 5, 5, 12,3, 11, 11, 11, 1 

1,11 
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3412 DATA5 ,5,5,3, 12,3, 12,3, 12,3, 12, 11 , 1, 11 
, 11,11 

3499 ’ 

3500 ’ +++ Stukje 5 +++ 

3 15 1 15 ATA5,5,5, 12 ' 3 ' 12,3 ’ 9 ’ 9 ’ 9 ’ 15 > 15 > 15 > 15 

3502 DATA5, 5, 12, 3, 12, 3, 12, 9, 9, 9, 7, 15, 15, 15 
, 15, 15 

3503 DATA5, 12, 3, 12, 3, 12, 9 , 9, 9, 9, 9, 7, 15, 15, 

-L O | ( 

3504 DATA5.3, 12,3, 12,3,9,9,9,9,9,7,7, 15, 15 

3505 DATA5 , 12, 3, 12, 3, 9, 9, 9, 9 , 9 , 9 , 9 , 7 , 7 , 7 , 7 

3506 DATA 12 , 3, 12,3, 10,9, 10,9, 10,9, 10,9, 10 , 

7,7,7 ’ 

3507' DATA3, 12,3, 12, 10, 10 , 10 , 10 , 10 , 10 , 10 , i 0 
) 10 7 7 *7 

3508 DATA 10, 3, 12,3,3, 11, 11, 11, 11 , H, n, n, 
3509’ DATA10, 12,3, 12,3, 11 , 1 , 11 , 1 , 11 , i,u, 12 

,3, 12, 5 

3510 DATA12,3,12,3,12,ll,l,ll,l,ll,l,li,i2 
12 3 12 

3511 DATA 10, 12, 10, 12, 10, 11 , 11,11,11, 11 , H, 
11,10,3,10,3 

3512 DATA 10 , 10, 10 , 10 , 10 , 11,11,11,11,11,11 

11 , 10 , 10 , 10,10 

3599 ’ 

3600 ’ +++ Stukje 6 +++ 

3601 DATA15, 15, 15, 9, 15, 15, 15, 15, 15, 15, 15, 1 

5,15,15,15,15 

3602 DATA15, 15, 15, 9, 15, 15, 15, 15, 15, 15, 15, 1 

5.15.15.15.15 

3603 DATA15, 15,9,9,9, 15, 15, 15, 15, 15, 15, 15, 

15 15 15 15 * * 

3604 DATA7, 15,9,9,9, 15, 15, 15, 15, 15, 15, 15, 1 
5 15 15 15 

3605’ DATA7 , 7, 9, 9, 9, 15, 15, 15, 15, 15, 15, 15, 15 
) 15, 15, 15 

3606 DATA7, 9,9, 9, 9, 9, 7, 15, 15, 15, 15, 15, 15, 1 
5 15 15 

3607* DATA7 ,9, 9, 9, 9, 9, 7, 7, 7, 15, 15, 15, 15, 15, 
15, 15 

3608 DATA10, 9, 10, 9, 10, 9, 10, 7, 7, 7, 7, 15, 15, 1 

5.15.15 ’ 

3609 DATA10, 10 , 10 , 10 , 10 , 10 , 10 ,7 7, 7 7 7 15 
,15,15,15 

3610 DATA12, 11, 11, 11, 11, 11, 7, 7, 7, 7, 7, 7, 7, 7 
, 15, 15 

36H DATA 10, 11, 11, 11,11, 11,5,5,7,7,7,7,7,7 
3612 DATA10, 11, 11 , 11 , 1 , 11,5,5,5,5,7,7,7,7, 
3700 ’ +++ Stukje 7 +++ 

3 1? 1 11 ATA5 ’ 5 ' 3 ’ 12,3, 12,3, 12 ’ 3, 12 • 3. n, 1,11 

3 ïl 3 ll ATA5 ’ 5 ’ 12, 3,3,3,15,3,15,3,3,11,11,11 

3703 DATA5, 5, 3, 3, 3, 12, 3, 12, 3, 3, 15, 11,11,11 
111 

3704^DATA5,3,12,3,15,3,3,12,3,12,3,11,11,1 

3 11 ^ 11 A ll 5 ' 12 ’ 15 ’ 12,3,3, 12,3, 15 ’ 12(3) n > 11 
11 ^ 11 ^ 11 ^* 12 , 3 , 3 , 12 , 3 , 12 , 3 , 12 > 3 > 15 , 11 , 11 , 

3707 DATA3 ,3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 11, 11, 11, 11 

3708 DATA3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 

3709 DATA3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 , 3, 3, 3 

3710 DATA3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 

3711 DATA3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 

3712 DATA3, 3, 3, 3, 3, 3, 3, 3, 3 , 3 , 3 , 3 , 3 , 3, 3 , 3 

3800 ’ +++ Stukje 8 +++ 

3801 DATA10, 10, 10 , 10 , 10 , n n n 11 11 , 11 , 

11 , 10 , 10 , 10,10 



3802 DATA10, 1, 10, 10, 10, n, n n 11 , 11 u i 
1,10,10,10,1 

3803 DATA10, 1, 10, 1, 10, 11, 11, 11, 9, 11, 11, 11, 
10,1, 10, 1 

0 8 1 4 10 A 10 10 ’ 10, 10> 1 > 10 > n > U.9,9,9, 11, 11, 1 

3805 DATA10, 10, 10, 10, 10, u, 11,9,9,9, 11, 11, 

10, 10, 10, 10 

3806 DATA10, 10, 10, 10, 10, 11, 11,9,9,9, 11, 11, 

10,10,10,10 ' 

3807 DATA3, 3, 3, 3, 3, 11 , 11 , 9, 9, 9, 11 , 11 , 3, 3, 3 
33 ® 3 DATA 3,3,3, 3, 3, 3, 3, 1, 1, 1,3, 3, 3, 3, 3, 3 

3809 DATA3, 3, 3, 3, 3, 1,1, 1 , 1 , 3 , 3 , 3, 3, 3 3 3 

3810 DATA3, 3, 1,1, 1,1, 1,1, 3, 3, 3, 3, 3, 3, 3, 3 

DATA3, 1,1, 1,1, 1,1, 3 , 3, 3, 3, 3, 3, 3, 3, 3 

3899 P 4 ™* 1 ' 1 * 1 * 1 * 1 * 3 . 3. 3, 3, 3, 3, 3, 3, 3 

3900 ’ +++ Stukje 9 +++ 

3 901 DATA10, 11, 11, 11, 1, 11, 15,3,5,5,5,7,7,7 
3902^ DATA1 0, 11, 11, 11, 11, 12,3, 12,3,5,5,5,5, 
3903 DATA10, 11 , 1 , 11 , 15 , 3 , 12 , 3 , 12,3,5,5,5,5 
39 ® 4 5 DATA10 * n > 1. 11.3, 15, 12,3, 12, 15,3,5,5, 

3903 DATA10, 11, 11, 3 , 12, 3, 12, 12, 3, 12, 15, 3, 3 

3 9 ® 6 5 D AT a1 0, 11, 15, 12,3, 12, 12,3, 12,3, 12,3, 1 
3907 DATA3, 11, 12, 12, 12, 12,3,3,3,3,3,3,3,3, 

39 03 DATA3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 

3909 DATA3, 3, 3, 3, 3, 3, 3, 3 , 3 , 3, 3 , 3 , 3, 3 , 3 , 3 

3910 DATA3, 3, 3, 3, 3, 3, 3, 3 , 3 , 3 , 3 , 3, 3 , 3 , 3, 3 
onli DA TA 3, 3,3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 

3999 ? ATA 3 * 3 ' 3 > 3 - 3 > 3 > 3 > 3 >3, 3 ,3,3,3,3,3,3 

4000 • +++ Data controle +++ 

4010 CLS: L0CATE12, 12: PR INT" Moment je a.u.b. 

” : DIMA (9) : RESTORE4100 

4020 FOR 1 = 1 T09 : READA ( I ) : NEXT 

4030 RESTORE3100 

4040 F0RI=1T09: A=0 

4050 F0RJ = 1T0192: READB: A=A+B: SEXT 

4060 I FA ( I ) = ATHENNEXTELSE4080 

4070 RETURN 

4080 CLS: BEEP: PRINT" Je hebt een fout gemaa 
kt in regel 2000 + 1 * 100 ; "tot en met re? 

el”; 2000 + 1 * 100+12 

4090 END 

4100 DATA 2810,2560,2801,1885,1716,2218,10 
90, 1198, 1073 



Supplement PUZZEL 



Mocht je zelf een puzzel willen maken dan 
kan dat alsvolgt: 

Neem een vel papier, liefst ruit jespapier (5 
mm.) en teken hierop een rooster van 
horizontaal 48 en vertikaal 3G hokjes, 
verdeel dit weer in 9 vakken van 16 bij 12 
hokjes. Teken nu de puzzel en kleur hem 
in met de kleuren die volgens de 
COLOR-tabel van de computer voorhanden 
zijn C16 stuks). Als je dat gedaan hebt 
begin je bij het le hokje van het le 
vakje, dit is linksboven, en schrijf van 
links naar rechts de kleurcode van de 
kleur die in de puzzel staat op, totdat je 
totaal voor het le vakje 16 & 12 = 192 
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kleurcodes hebt opgeschreven. De overiqe 
vakjes worden op dezelfde wijze gedaan. 

kun je de kleurcodes invoeren in de 
DATA-regels welke van regel 3100 t/m 2999 
lopen. 



Er is aan het eind, in SUBROUTINE, welke 
van regel 40G0 t/m 4100 loopt, een DATA 
controller ingebouwd. Deze SUBROUTINE 
wordt aangeroepen in regel 20. Als ie het 
programma ingetikt en geSAVED hebt, kun 
je het RUNnen. Wanneer er een DATA fout 
is verschijnt er vanzelf een f outmeldinq. 
Mocht er geen foutmelding komen, ten 
teken dat alle DATA goed zijn, dan kun ie 
bij regel 20 - GOSUB4000- verwilderen, 

muf ^ deze SUB0UTINE niet steeds bij het 
KUNnen aangeroepen wordt. 



CONTRDLETELLINÖ 


Regel 


900 


- 


58 
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3400 


- 


58 
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1 


58 
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- 
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20 
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58 
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228 


Regel 


1110 


- 


167 


Regel 


3499 


- 


58 


Rege 1 : 


50 - 


88 


Regel 


1 120 


- 


201 


Rege 


3500 


- 


58 


Regel : 


60 - 


213 


Rege 


1 1 30 


- 


246 


Regel 


3501 


- 


242 


Regel ; 


70 - 


48 


Regel 


1 1 40 


- 


64 


Rege 


3502 


- 


241 


Regel : 


80 - 


1 99 


Regel 


1 1 50 


- 


1 42 


Regel 


3503 


- 


1 53 


Regel : 


90 - 


1 79 


Rege 1 


1 199 


- 


58 


Rege 


3504 


- 


58 


Regel : 


99 - 


58 


Regel 


1200 


- 


58 


Rege 


3505 


- 


228 


Regel ; 


100 - 


58 


Regel 


1210 


- 


1 48 


Regel 


3506 


- 


1 78 


Regel : 


110- 


217 


Regel 


1220 


- 


206 


Regel 


3507 


- 
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- 
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- 
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55 
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- 
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- 
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2 


Regel 


1 250 


- 
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- 


30 
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- 
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- 
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60 
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- 
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- 
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- 


58 
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- 
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190 - 


1 79 


Regel 


1 530 


- 


171 


Regel 


360! 


- 


75 


Regel : 


193 - 


58 


Regel 


1 540 


- 


123 


Regel 


3602 


- 


7S 


Rege 1 : 


200 - 


58 


Regel 


1 550 


- 


49 


Rege 1 


3603 


- 


241 


Regel : 


210 - 


216 


Rege 1 


) 600 


- 


1 1 4 


Regel 


3604 


- 


1 94 


Regel : 


220 - 


243 


Regel 


1 61 0 


- 


251 


Regel 


36C5 


- 


1 47 


Rege 1 ; 


230 - 


88 


Rege 1 


1 620 


- 


1 42 


Regel 


3606 


- 


57 


Regel : 


240 - 


64 


Regel 


2999 


- 


58 


Regel 


3607 


- 


219 


Regel : 


299 - 


58 


Regel 


3000 


- 


58 


Regel 


3608 


- 


33 


Regel ; 


300 - 


58 


Rege 1 


3010 


- 


1 43 


Regel 


3609 


- 


1 06 


Regel : 


310 - 


1 1 0 


Rege 1 


3020 


- 


141 


Regel 


3610 


- 


233 


Regel ; 


320 - 


218 


Regel 


3030 


_ 


152 


Regel 


361 1 


- 


1 33 


Regel : 


330 - 


1 71 


Rege 1 


3046 


- 


130 


Rege 1 


3612 


- 


80 


Regel : 


340 - 


30 


Regel 


305© 


- 


1 26 


Rege 1 


3700 


- 


58 


Regel : 


350 - 


250 


Rege 1 


3060 


- 


1 44 


Rege 1 


3701 


- 


1 98 


Regel : 


360 - 


1 25 


Rege 1 


3070 


- 


1 50 


Rege 1 


3702 


- 


205 


Regel : 


370 - 


1 98 


Regel 


3080 


- 


181 


Regel 


3703 


- 


1 53 


Regel ; 


38© - 


99 


Rege 1 


3090 


- 


1 56 


Rege 1 


3704 


- 


1 99 


Regel : 


390 - 


1 31 


Regel 


3099 


- 


53 


Regel 


3705 


- 


91 


Regel : 


400 - 


1 25 


Regel 


3100 


- 


58 


Regel 


3706 


- 


40 


Regel ; 


410 - 


1 97 


Regel 


3101 


- 


1 2C 


Regel 


3707 


- 


51 


Regel : 


420 - 


1 39 


Regel 


3102 


- 


120 


Regel 


3708 


- 


72 


Regel ; 


430 - 


1 31 


Regel 


3103 


- 


1 16 


Regel 


3709 


- 


72 


Regel : 


440 - 


1 22 


Regel 


3104 


- 


113 


Regel 


3710 


- 


72 


Regel : 


450 - 


248 


Rege 1 


3105 


- 


1 09 


Rege 1 


371 1 


- 


72 


Regel ; 


460 - 


245 


Regel 


31 06 


- 


1 09 


Regel 


3712 


- 


72 


Regel : 


470 - 


1 96 


Rege 1 


3107 


- 


1 1 5 


Rege 1 


3800 


- 


58 


Regel : 


499 - 


58 


Regel 


3108 


- 


1 20 


Regel 


3801 


- 


47 


Regel : 


500 - 


58 


Regel 


3109 


- 


1 20 


Regel 


3802 


- 


207 


Regel ; 


510 - 


1 98 


Rege 1 


31 1 0 


- 


120 


Regel 


3803 


- 


70 


Regel ; 


520 - 


240 


Regel 


3111 


- 


1 20 


Regel 


3804 


- 


84 


Regel : 


530 - 


131 


Regel 


31 1 2 


- 


1 88 


Regel 


3805 


- 


1 80 


Rege 1 : 


540 - 


1 82 


Regel 


3 1 99 


- 


58 


Regel 


3806 


- 


1 ©0 


Regel : 


550 - 


1 24 


Regel 


3200 


- 


58 


Regel 


3807 


- 


22 


Regel : 


560 - 


245 


Regel 


3201 


- 


120 


Regel 


3808 


- 


66 


Regel : 


570 - 


1 96 


Regel 


3202 


- 


120 


Regel 


3809 


- 


64 


Regel : 


599 - 


58 


Regel 


3203 


- 


120 


Regel 


3610 


- 


60 


Regel : 


600 - 


58 


Regel 


3204 


- 


120 


Regel 


381 1 


- 


60 


Regel : 


610 - 


1 98 


Regel 


3205 


- 


120 


Regel 


3812 


- 


60 


Regel : 


620 - 


210 


Regel 


3206 


- 


73 


Regel 


3899 


- 


58 


Regel : 


630 - 


1 90 


Rege 1 


3207 


- 


24 


Regel 


3900 


- 


58 


Regel : 


699 - 


58 


Regel 


3208 


- 


1 89 


Regel 


3901 


- 


1 25 


Regel : 


700 - 


58 


Regel 


3209 


- 


94 


Regel 


3902 


- 


1 66 


Regel : 


710 - 


45 


Regel 


3210 


- 


47 


Regel 


3903 


- 


1 13 


Regel : 


720 - 


74 


Regel 


321 1 


- 


1 62 


Regel 


3904 


- 


1 62 


Regel : 


730 - 


92 


Rege 1 


3212 


“ 


202 


Regel 


3905 


- 


205 


Regel ; 


740 - 


221 


Regel 


3299 


- 


58 


Regel 


3906 


- 


255 


Regel ; 


750 - 


1 05 


Regel 


3300 


- 


56 


Regel 


3907 


- 


55 


Rege 1 ; 


760 - 


1 1 


Regel 


3301 


- 


1 20 


Regel 


3908 


- 


72 


Regel : 


799 - 


58 


Rege 1 


3302 


- 


120 


Regel 


3909 


- 


72 


Regel : 


800 - 


58 


Regel 


3303 


- 


1 20 


Regel 


3910 


- 


72 


Regel ; 


810 - 


243 


Regel 


3304 


- 


1 1 5 


Regel 


391 1 


- 


72 


Regel ; 


820 - 


101 


Rege 1 


3305 


- 


1 1 1 


Regel 


3312 


- 


72 


Rege 1 : 


830 - 


1 74 


Rege 1 


3306 


- 


1 05 


Regel 


3999 


- 


58 


Regel : 


©40 - 


1 83 


Regel 


3307 


- 


1 05 


Regel 


4000 


- 


58 


Regel ; 


850 - 


1 73 


Regel 


3308 


- 


1 06 


Regel 


4010 




151 


Regel : 


860 - 


91 


Regel 


3309 


- 


107 


Regel 


4020 




24 


Regel ; 


870 - 


219 


Regel 


231 0 


- 


1 12 


Regel 


4030 




1 94 


Regel : 


880 - 


1 44 


Regel 


331 1 


- 


1 20 


Regel 


4040 




58 


Regel : 


890 - : 


236 


Regel 


3312 


- 


120 


Regel 


4050 




13 


Regel : 


899 - 


58 


Regel 


3399 




58 


Regel 


4060 




219 




Regel : 


4070 - 


1 42 


Regel : 


4080 - 


214 


Regel : 


4090 - 


1 29 


Regel ; 


41O0 - 


65 


Totaal 


: 32401 





SOLOGAME 



Sologame is een spel gelijkend op solitaire. 
Alleen bij solitaire verdwijnt telkens een 
pion van het bord. Bij Sologame verande- 
ren bolletjes van kleur. In het spel is een 
instructiepagina opgenomen. Het doel van 
het spel is alle zwarte bolletjes op het 
scherm wit te maken, behalve eentje. Door 
het pijltje op een wit bolletje te zetten 
en in de richting van twee naast elkaar 
liggende zwarte bolletjes te draaien en 
daarna op de spatiebalk te drukken, wordt 
het bolletje waar het pijltje op staat 
zwart en de twee andere zwarte bolletjes 
wit. Zo ga je door tot je er maar eentje 
over hebt. Is dat het geval, dan word je 
beloond met een muziekje en komt het 
startscherm weer terug. Op het scherm 
wordt bijgehouden hoeveel zwarte bolletjes 
er nog over zijn. Kun je niet meer verder, 
druk dan op <esc>. Het spel is in screen 1 
geschreven en maakt gebruik van eigen 
karakters, evenals de naam Sologame. De 
dat a’s van de verschillende onderdelen zijn 
apart gehouden, zodat het een beetje dui- 
delijk is, welke karakters gebruikt worden. 



Veel plezier met SOLOGAME. 

Albert. 



10 * 

20 1 0 0 

30 1 0 SOLOGAME @ 

40 ’ @ 0 

50 * @ door:A. Vuijk @ 

60 ’ @ Coevorden 1989 @ 

70 1 @ (c)1989 MSX Gids Lelystad @ 

80 ’ @ 0 

90 9 
100 * 



110 CLEAR1000: KEYOFF: SCREEN1 , 0,0: C0L0R15, 1 
> 1- CLS: VIDTH32: DEFIMTA-Z: FORX=1TG10: KEYX. ” 
” : ÏTEXTX 



120 OMSTOPGOSÜB3020 : STOPOtf: POKE&HFBB0 . 1 
130 GOSUB1590 






150 L0CATE4, 1 : PRIFTSTKINGS (24, 255) 

160 F0RA=2T02 1 : L0CATE4 , A : PR I NTCHRS (255 ) : LO 
CATE27 , A: PRIFTCHRS (255) : NEXTA 



] o® ^0CATE4, 22: PRIJrTSTRIIJ r G$<24, 255) 

if® PCATEH, 3: PRÏRTCHRS (34) ; ”#$%&• -- • LOCAT 

Eli, 6: PR INT" PRESENTEERT” A1 

190 P=8: R=9: GOSUB1320 

200 LOCATE14, 15: PRINT”DQOR" 

210 L0CATE12, 18: PRINT”A. VUI JK” 

220 LOCATE11, 20: PR I NT” COEVORDEN” 

230 PLAYDS 
240 F0RAK=1T04 

40+s ' VPEEK <7 * 8+s > : BEï 

til-, ram 4,T ° 7 ' «rexTS: Fosï=iiu 

270 NEXTAK 
280 ’ 

29 ® s P eelv eld *m)(cm****5H*^**** 

300 ’ 

310 PLAYD$ 

320 CLS: P=8: R=0: GOSUB1320: ZB=40 
330 L0CATE8 , 4 : PR I NT" ' dddddddddddddda” 

3 > 5 : PR I UT" " kxyxyxyxyxyxyxy j a” 

350 L0CATE6 , 6: PRINT”'klz dd<id<I*Ini a » 
360 LOCATE6, 7 : PRINT"dxyxyxyxyxyxyxyxyyyd" 
370 L0CATE6 , 8: PRINT-'d Z LLSï{z<ÏSz{d” 

& SI: i«; SJÏPKigggSSJï 0 " 

440 LOCATE10, 15: PRINP’bilxyxyxylhc" 

450 LOCATE11, 16: PRINT”biz<z{ Z {hc" 

460 L0CATE12, 17 : PRINT"bilxylhc" 

470 LOCATE13, 18: PRINT”biz{hc” 

480 LOCATE14, 19: PRIFT’bddc” 

490 M=RND(-TIME)*6 

SS=6319+M*64: IFVPEEK (SS) O 120THEN490 
510 VPOKESS, 112: VPQKESS+1, 113: VPOKESS+32 1 

1 4 : VPOKESS+33 ,115 » 1 

520 Xl= (SS- 6 144 ) M0D32 : Y1 = (SS-6 1 44 ) /32 
530 X2=XlX8+4: Y2=YlX8+4 

VP0KE6915 6 8 12, ^ VP0KE6913 > X2: VP0KE6914, 0: 

T EOCATE2 , 2 1 : PR I NT" [ 0 ] TOETSENBORD [ 1 ] J O 
uIsTOPPE n° CATE 2, 22: PRIFr " [ 3] INSTRUCTIE 
560 DEFUSR=342: U=USR(0) 

570 K$=INKEY$: IFK$=””THEN570 
580 K=VAL(K$): IFK$="0”ORK$=" 1”THEN610 
590 IFK$="3"THEN1380 
600 I FK$=" 4” THER3030ELSE560 
610 L0CATE2 , 2 1 : PR I NTSTR I NG$ (28 , 32 ) 

620 L0CATE2 , 22: PR I NTSTR ING$ (28, 32) 

o?^ L0 ^ ATE11 ’ 22: PRINT”BEGIN MAAR" : F0RWA=1T 
01000: NEXTWA: L0CATE11, 22: PRINTSTRINGS (10,3 

ITOSlSo?™; II' PKIBT ” ZÏART '' : L0CATE7, 22: PKI 
650 DEFUSR=342 : U=USR (0 ) 

660 ST=STICK(K) : SS=STRIG(K) 

670 I FZB= 1 THENGOSUB3060 
680 IFSR=-1THENGOSUB990 
690 I FST O0THEN720 

700 IN$=INKEY$: IFIN$=CHR$ (27) THEN310 
710 GOTO640 

720 I FST=2ORST=4ORST=6ORST=8THEN640 
730 NR- VPEEK (6914) : IF(NRX2+1)=STTHEN750 

VAfGOTO640 914 ’ ( <ST ~ 1 } /2 } ! F0RWA= 1T02 ®® = NEXT 
750 GOSUB780 

760 ONSTGOSUB800 , , 830, , 860, , 890 
770 GOTO640 

780 XI = VPEEK (6913) : Y1=VPEEK(6912) 

790 RETURN 
800 X2=X1 : Y2=Y1-16 
810 GOSUB920 



820 RETURN 
830 X2=X1+16: Y2=Y1 
840 GOSUB920 
850 RETURN 
860 X2=X1: Y2=Y1+16 
870 GOSUB920 
880 RETURN 
890 X2=X1-16: Y2=Y1 
900 GOSUB920 
910 RETURN 

920 SS=6144+((Y2-4)/8)*32+((X2-4) /8) 

930 IFVPEEK (SS)=112THEN960 
940 IFVPEEK (SS) =120THEN960 
950 RETURN640 

960 VP0KE6913, X2: VP0KE6912, Y2 
970 FORWA=1TO200:. NEXTWA 
980 RETURN 
990 GOSUB780 

1000 SS=6144+ ( ( Yl-4 ) /8 ) *32+ (Xl-4 ) /8 

1010 IFVPEEK (SS) =120THENRETURN640 

1 0i0 0 iL v uS; 6 ii 4 2 r Bie30ELsEraire »6« 

\lm ss i,6 ' ,ii2,,i, ®' i3m 

IH E Se E 4 E r SS - 64>=12OTHEB107 » EESE ^ B ‘3 
3l™ B i™S SS_128, = 120THEB108{ ' EI - SE < : OS»Bl 

1080 GOSUB1310 

u3: vpokess 
nr * 8 - 127 ’ ii3! ïpoke 

1110 ZB=ZB-1 : PLAYBJ: RETURN640 
0 : RETURN64? <SS+2 > = 120THEN1 130ELSEGOSUB130 

0 .^RETURN640 K ^® E ’ +4 ^ = 12 ®PNEN1 140ELSEGOSUB130 
1140 GOSUB1310 

4 1 , 1 n4 V TOoIIè“Ii5 P0KESS+3 ' 1 13: VP0KBSS+3 
“nJS kIIsU^ 5 pokess+5 ’ 113: 

1170 ZB-ZB-1 ; PLAYB$: RETURN640 
imK <SS+64 ’ =120THEB1 190BLSEGOSUB13 

30TRÉTOS SS+128> = 120rHEB1200ELSEGOSUB l 

1200 GOSUB1310 

«6 18 i?™“MElI;IIfi™ KESS+65 ' 113i VP0KESS 

1220 VPOKESS+128, 112: VPOKESS+129 113-VPOK-F 
SS+160, 114: VPOKESS+16 1,115 113 ' VP0KE 

1230 ZB-ZB-1: PLAYB$: RETURN640 
0?RETURN640 K ^ CSS ~ 2 ^ - 1 20THEN 1 250E L SEGÜSUB130 

0fRETURN640 K ^ (SS ~* =120THEN126 ® EI 'SEGOSUB130 
1260 GOSUB1310 

0?m! f VPOKE£+3lfu5 P ° KESS ' 1 ’ 113: VP0KE SS + 3 

mh' si£:2if?i 5 vpooss - 3 ' 1 13: ïpokess+2 

1290 ZB=ZB- 1 : PLAYBS : RETURN640 

1300 L0CATE12, 22: PRINT" KAN NIET" : PLAY”V1 6T 

sssraKiSsrijss?is m * !i 

121: vpokess+32 > 

of /?oa 0 CATEP ’ R: pr !NTCHR$ (128) ; CHR$ (129) • CH 
R$ (130) ; CHR$ (131) ; CHR$ (132) ; CHR4 (133) • CHR$ 

> ' ciiM < 135> f chm a 

25“h i; 39> iCHR$ <U0 



13 



1330 LOCATEP, R+l : PRINTCHRS (144) ; CHR$ (145) ; 
CHR$ (146) ; CHR$ (147) ; CHR$ (148) ; CHR$ (149) ; CH 
R$ ( 146 ) ; CHR$ (147') ; CHR$ ( 150 ) ; CHR$ ( 151 ) ; CHR$ 
( 152 ) ; CHR$ ( 153 ) ; CHR$ ( 154 ) ; CHR$ ( 155 ) ; CHRS ( 1 
56) ; CHR$ (157) 

1340 RETURN 
1350 ’ 

1360 ’ instructies ***************** 

1370 ’ 

1380 VPOKE6912, 209: CLS: P=8 : R=0 : GOSUB1320 
1390 PRINT: PRINT” SOLOGAME IS EEN SPEL VOO 
R EEN”: PRINT: PRINT" PERSOON. OP HET SPEELV 
ELD VAT”: PRINT: PRINT” STRAKS VERSCHIJNT ST 
AAN 40": PRINT: PRINT" ZWARTE BOLLETJES EN 1 
VITTE.” 

1400 PRINT: PRINT” OP DAT VITTE BOLLETJE ST 
AAT": PRINT: PRINT" EEN PIJLTJE, DAT JE MET 
DE”: PRINT: PRINT” CURSORTOETSEN OF JOYSTICK 
KUNT” : PR I NT : PR I NT" BESTUREN . ” : PR I NT : PR I NT 
: PRINT” <DRUK EEN TOETS) ” 

1410 GOSUB1530 

1420 LOCATE0, 4: PRINT” VANNEER JE HET PIJLT 
JE OP EEN”: PRINT: PRINT” VIT BOLLTJE ZET EN 
OP DE" : PRINT: PRINT" SPATIEBALK OF VUURKNO 
P DRUKT,”: PRINT: PRINT" WORDEN DE TWEE AANS 
LUITENDE, ” 

1430 PRINT: PRINT” NAAST ELKAAR LIGGENDE ZV 
ARTE” : PRINT: PRINT" BOLLETJES VIT IN DE RIC 
HTING": PRINT: PRINT” DIE HET PIJLTJE AANGEE 
FT.": PRINT: PRINT” HET VITTE BOLLETJE WORDT 
DAN" : PR I NT : PR I NT” ZWART . ” 

1440 PRINT: PRINT" <DRUK EEN TOETS)" 

1450 GOSUB1530 

1460 LOCATE0, 4: PRINT” ER MOETEN NATUURLIJK 
WEL TWEE”: PR INT .-PRINT” ZWARTE BOLLETJES N 
AAST ELKAAR” : PRINT: PRINT” L IGGEN. ”: PRINT: P 
RINT” DE BEDOELING VAN HET SPEL IS”: PRINT: 
PRINT" OP 1 NA ALLE ZWARTE BOLLETJES” : PR IN 
T: PRINT” VIT TE MAKEN. WANNEER JE GEEN” 

1470 PRINT: PRINT” AANSLUITENDE ZWARTE BOLL 
ET J ES”: PR INT: PR INT" KUNT VINDEN, IS HET SP 
EL UIT. ”: PRINT: PRINT” <DRUK EEN TOET 

S)” 

1480 GOSUB1530 

1490 LOCATE0, 4: PRINT" ONDER IN HET BEELD V 
ORDT BIJ”: PRINT: PRINT” GEHOUDEN, HOEVEEL Z 
VARTE”: PRINT: PRINT” BOLLETJES ER NOG OVER 
ZIJN. ": PRINT: PRINT" ALS JE WILT STOPPEN OF 
ALS JE” 

1500 PRINT: PRINT” NIET MEER VERDER KUNT, D 
RUK JE": PRINT: PRINT” OP <BSC>. JE KUNT DAN 
KIEZEN” : PRINT: PRINT" UIT STOPPEN OF OPNIE 
UW SPELEN . ” : PR I NT : PR I NT” VEEL SUCCES . ” : PR I 
NT: PRINT: PRINT" <DRUK EEN TOETS)” 

1510 GOSUB1530 
1520 GOTO310 

1530 DEFUSR=342: U=USR(0) 

1540 IN$=INKEY$: IFIN$=”"THEN1540 
1550 FORS=0TO31 : FORI=6240TO6Ö48STEP32: VPOK 
E I +S , 32 : NEXT I , S : RETURN 
1560 ’ 

1570 ’avcomputing ****************** 

1580 * 

1590 RESTORE2060 
1600 F0RA=272T03 19 
1610 READB 
1620 VPOKEA, B 
1630 NEXTA 
1640 ’ 

1650 ’ lettertype ******************* 

1660 ’ | 

1670 RESTORE2150 

1680 F0RA=384TQ463 : READB: VPOKEA, B: NEXTA 
1690 FORA=520TO727 : READB: VPOKEA, B: NEXTA 
1700 ’ 



1720 ' SolDgaine ******************** 

1730 RESTORE2540 

1740 FORA= 1024TO1 143 : READB : VPOKEA , B : NEXT 
1750 FQRA-1152TQ1263: READB: VPOKEA, B: NEXT 
1760 ' 

1770 'karakters ******************** 

1780 ’ 

1790 RESTORE2860 

1800 FORA=768TO807: READB: VPOKEA, B: NEXTA 
1810 RESTORE2860 

1820 F0RA=832TQ87 1 : READB: VPOKEA, B: NEXTA 
1830 RESTORE2910 

1840 F0RA=896T0927 : READB: VPOKEA, B: NEXTA 
1850 RESTORE2910 

1860 FORA=960TO991 : READB: VPOKEA, B: NEXTA 
1870 FORS=0TO7 : VPOKE864+S, 0: NEXT 
1880 ’ 

1890 * sprite’s ******************** 

1900 ’ 

1910 RESTORE 2980 

1920 FORA=0TO31 : READB: VPOKE14336+A, B: NEXTA 
j. y óv) 

1940 ’ kleurpoke’ s ***************** 

1950 * 

! 9 2® VP0KE8196 - ^ 1+ 8*16) : VPOKE8197, (1 + 10*16 
) : FORA-0TO3: VPOKE8200+A, (1+10*16) : NEXTA- VP 
OKE8198, (1+7*16): VP0KE8199, (1+7*16) 

1970 VPOKE8204 , (1+10*16) : VPOKE8205, (4+10*1 
6):V po KE8206, (4+15*16) : VPOKE8207, (4+1*16) 
1980 VPOKE8208, (1+15*16) : VPOKE8209, (1+15*1 
6) : VPOKE8210, (1+7*16) : VPOKE821 1 , (1+7*16) 
1990 D$="T250S9M10000O4C4F8G8A4A4G4A+4A4C4 
03A+404A8F8G403A+4A404E4F4. R8" 

2000 B$=”L8T255V1505CEGEC” 

2010 C$=”T220V15R2O5C2C4O4A8A+8O5C4F4E4C4C 
4C404A8A+805C4F4E4C4C4F4A8G8F4C4D4D8C8D404 
G4G4A4A+405C404A4F. .” 

2020 RETURN 
2030 ’ 

2040 ’ data avcomputing ************ 

2050 1 

2060 DATA 0,0,16,40,40,125,69,130 
2070 DATA 0,0,127,128,153,34,34,25 
2080 DATA 0,0,255,0,52,170,170,34 
2090 DATA 0,0, 255 , 0 , 202 , 170 , 202 , 132 
2100 DATA 0,0,255,0,235,74,74,74 
2110 DATA 0,0,248,0,24,160,168,152 
2120 ’ 

2130 ’ data lettertype ************* 

2140 ’ 

2150 DATA 60,102,102,0,204,204,120,0 
2160 DATA 4,6,6,0,12,12,8,0 
2170 DATA 60,6,6,56,192,192,120,0 
2180 DATA 60,6,6,56,12,12,120,0 
2190 DATA 36,102,102,56,12,12,8,0 
2200 DATA 60,96,96,56,12,12,120,0 
2210 DATA 60,96,96,56,204,204,120,0 
2220 DATA 60,6,6,0,12,12,8,0 
2230 DATA 60,102,102,56,204,204,120,0 
2240 DATA 60,102,102,56,12,12,120,0 
2250 DATA 16,56,56,92,92,238,238,0 
2260 DATA 236,238,236,224,236,238,236,0 
2270 DATA 108,238,224,224,224,238,108,0 
2280 DATA 236,238,238,238,238,238,236,0 
2290 DATA 254,254,0,252,224,254,254,0 
2300 DATA 254,254,0,252,224,224,224,0 
2310 DATA 108,238,224,224,238,230,108,0 
2320 DATA 238,238,238,254,238,238,238,0 
2330 DATA 56,56,56,56,56,56,56,0 
2340 DATA 14,14,14,14,238,238,108,0 
2350 DATA 338,236,232,224,232,236,238,0 
2360 DATA 224,224,224,224,226,230,238,0 
2370 DATA 130,198,238,238,238,238,238,0 
2380 DATA 198,230,118,186,220,206,198,0 
2390 DATA 108,238,238,238,238,238,108,0 
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2400 DATA 236,238,238,236,224,224,224,0 
2410 DATA 108,238,238,230,234,236,110,0 
2420 DATA 236,238,236,224,232,236,238,0 
2430 DATA 110,230,114,56,156,206,236,0 
2440 DATA 254,254,0,96,96,126,62,0 
2450 DATA 238,238,238,238,238,238,108,0 
2460 DATA 238,238,238,108,108,40,40,0 
2470 DATA 238,238,238,238,238,198,130,0 
2480 DATA 238,238,116,56,92,238,238,0 
2490 DATA 238,238,238,124,56,56,56,0 
2500 DATA 238,206,156,56,114,230,238,0 
2510 ’ 

2520 'data sologame **************** 

2530 ’ 

2540 DATA 0,0,7,15,31,63,63,63 
2550 DATA 0,0,224,240,192,224,240,248 
2560 DATA 0,0,7,15,31,63,62,60 
2570 DATA 0 , 0 , 224 , 240 , 248 , 252 , 124 , 60 
2580 DATA 0,0,7,15,31,63,63,63 
2590 DATA 0,0,128,128,128,128,128,128 
2600 DATA 0,0,7,15,31,63,62,60 
2610 DATA 0,0,224,240,248,0,0,60 
2620 DATA 0,0,7,15,31,63,62,60 
2630 DATA 0,0,224,240,248,252,124,60 
2640 DATA 0,0,4,14,31,63,63,63 
2650 DATA 0,0,32,112,248,252,252,252 
2660 DATA 0,0,7,15,31,63,63,63 
2670 DATA 0,0,224,240,224,192,128,240 
2680 DATA 36,66,153,161,161,153,66,36 
2690 DATA 31,15,7,3,15,7,0,0 
2700 DATA 252,252,252,248,240,224,0,0 
2710 DATA 60,62,63,31,15,7,0,0 
2720 DATA 60,124,252,248,240,224,0,0 
2730 DATA 63,63,63,31,15,7,0,0 
2740 DATA 252,252,252,248,240,224,0,0 
2750 DATA 60,62,63,31,15,7,0,0 
2760 DATA 60,124,252,248,240,224,0,0 
2770 DATA 60,62,63,30,14,4,0,0 
2780 DATA 60, 124,252, 120, 112,32,0,0 
2790 DATA 63,63,59,25,9,4,0,0 
2800 DATA 252,252,220,152,144,32,0,0 
2810 DATA 63,63,63,31,15,7,0,0 
2820 DATA 240,128,192,224,240,224,0,0 
2830 ’ 

2840 ’ data karakters ************** 

2850 ’ 

2860 DATA 1,3,7,15,31,63,127,255 

2870 DATA 128,192,224,240,248,252,254,255 

2880 DATA 255,127,63,31,15,7,3,1 

2890 DATA 255,254,252,248,240,224,192,128 

2900 DATA 255,255,255,255,255,255,255,255 

2910 DATA 0,0,7,15,31,63,63,63 

2920 DATA 0,0,224,240,248,252,252,252 

2930 DATA 63,63,63,31,15,7,0,0 

2940 DATA 252,252,252,248,240,224,0,0 

2950 ’ 

2960 ’ data sprites **************** 

2970 ’ 

2980 DATA 24,60,126,219,153,24,24,24 
2990 DATA 24,12,6,255,255,6,12,24 
3000 DATA 24,24,24,153,219,126,60,24 
3010 DATA 24,48,96,255,255,96,48,24 
3020 RETURN 

3030 VPOKE6912, 209: CLS: LOCATE11, 12: PRINT”T 
OT ZIENS” :PLAYD$ 

3040 I FPL AY <0 ) THEN3040 

3050 SCREEN0 : DEFUSR1=&H3E: U=USR1 (0) : KEYQN: 
LIST10-100: END 
3060 PLAYCS 

3070 IFPLAY (0)THEN3070 
3080 RETURN320 
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1 ® ’ ************************; ******** 

20 ’ * ^ 

3® ’ * Doe De Deur Dicht * 

’ * door K. A. Nieuwe boer $ 

50 ’ * £ 

60 ** (c) 1989 MSX-Gids Lelystad * 

70 ’* t 

80 ’ ^W****************^^^^^^ 

90 ’ 

100 SCREEN2 , 2 : CLS : COLOR 15,1,1 
110 OPEN"GRP: ”F0R0UTPUTAS#1 
120 PS=1 : GOSUB 1650 

^ RAV ” BM49 > 160 ” :PRr ™.”Vil je spelreg 

els?” RAW " BM5<2> ’ 160 " :PRINT#1 -” Wil Je spelreg 

150 A$=INKEY$: IF A$=”"THEN150 

160 IF A$=” J”ORA$=” j”THEN GQTO2370ELSEGOTO 
Io0 

170 GOTO150 

180 DIM K(12) , DS(2) 

190 SCREEN2, 2 
200 PS=1 
210 CLS 

220 COLOR 15, 1, 1 

230 TD=0 : TE=0 : PT=0 • BT=0 : X=0 : DS <1 ) =0 ; DS (2 ) = 
0 : TT=0 : A=0 : B=0 

240 FOR 1=1 TO 9: K(I)=0: NEXT I 

250 FOR 1=10 TO 12: K ( I )=I : NEXT I 

260 IF PS> 1THEN 290 

270 GOSUB 1650 

280 GOSUB 1570 

290 GOSUB 1650 

300 GOSUB 2320 

310 PLAY’’04CDEFGABCD” : GOSUB 1210 

320 GOSUB 840 

330 GOSUB 690 

340 GOSUB 620 

350 GOSUB 380 

360 GOTO 320 

370 'DEUR SLUITEN 

380 I FTE=1ANDK < 1 ) =0THEN X=16: PT=PT+1- K(l) = 

1 : GOSUB550 

390 I FTE=2ANDK <2 ) =0THENX=40 : PT=PT+2- K (2)=2 
: GOSUB550 

400 IFTE=3ANDK(3)=0THENX=64: PT=PT+3: K(3)=3 
: GOSUB550 

410 I FTE=4ANDK (4 ) =0THENX=88 : PT=PT+4 • K (4 ) =4 
: GOSUB550 

420 I FTE=5 ANDK (5 ) =0THENX= 112: PT=PT+5 • K (5 ) = 

5 : GOSUB550 

430 I FTE=6 ANDK <6 ) =0THENX= 136 : PT=PT+6- K(6) = 
6: GOSUB550 

440 IFTE=7ANDK(7)=0THENX=160: PT=PT+7- K<7) = 

7 : GQSUB550 

450 I FTE=8ANDK (8 ) =0THENX= 184 : PT=PT+8 • K (8 ) = 

8 : GOSUB550 

460 I FTE=9ANDK (9 ) =0THENX=208 : PT=PT+9- K (9>= 

9: GOSUB550 

470 IFTT=1ANBK(1)=0THEN X=16: PT=PT+1: K<1>= 

1 : GOSUB550 

480 I FTT=2ANDK (2 ) =0THEN X=40: PT=PT+2- K(2)= 

2: GOSUB550 

490 I FTT=3 ANDK (3 ) =0THEN X=64: PT=PT+3- K(3)= 

3 : GOSUB550 

500 I FTT=4 ANDK (4 ) =0THENX=88 : PT=PT+4 • K (4 ) =4 
: GOSUB550 

510 I FTT=5 ANDK (5 ) =0THENX= 1 12 : PT=PT+5 • K (5 ) = 

5 : GOSUB550 

520 I FTT=6ANDK (6 ) =0THENX= 136 : PT=PT+6' K(6)= 

6: GOSUB550 
530 PT=PT-1 
540 RETURN 

550 FOR C=15T02STEP-1 
560 LI NE (X, 42)- (X+20, 90) , C, BF 
570 NEXTC 




580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 



CIRCLE (X+ll, 75) , 4, 1 
PA INT (X+ll, 75) , 1 
RETURN 380 
'WISSEN DOBBELSTEEN 
FORI=2TQ3 

LI NE (1*40, 105)- (25+1*40, 132), l.BF 
NEXT I ’ ' 

L INE (56, 155)- (70, 169) , 1, BF 
L INE (198, 170)- (212, 180), l.BF 
RETURN 
'KEUZE MKN 

IF K(7)+K(8)+K (9) =24 THEN 780 

IF K (A)=A AND K(B)=B AND K(A+B)=A+BTHE 
N 1900 

710 A$=INKEY$ 

IF A$=” 1" THEN TE=DS(1) : TT=DS(2) : GOTO 



720 

740 

730 

LSE 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

0 

900 

910 

920 

930 

940 

950 

960 

970 

980 

E” 

990 

G” 

1000 

F” 

1010 

CA” 

1020 

EG” 

1030 

FA" 



THEN TE=DS(1)+DS(2) : GOTO760E 



IF A$=”2" 

710 

IF K(A)=A AND K(B)=B THEN 1900 
RETURN 

IF K (A+B) =A+B THEN 1900 

RETURN 

A=DS(1 ) 

IF K(A)=A THEN 1900 
TE=DS(1) 

FOR T=1TO400: NEXT T 
RETURN 

’ DOBBELSTEEN+BEURT TELLEN 
BT=BT+1 

DRAVBM50, 160” .-PRINT# 1, ; BT 
DRAVBM190, 160" : PRINT#1 , : PS 
DRAVBM50, 172” : PRINT#1, ; RK 
DRAWBM190, 172" : PRINT#1, ; PT 
IF K(7)+K(8)+K(9)=24 THEN 1=2 : GOTO 91 

F0RI=2T03 

LI NE (1+1*40, 107)- (23+1*40, 130) , 4, BF 
PSET ( 1*40, 106) , 15 
DRAW” R23D25L23U25” 

Y(2)=0: Y(3>=0 
RD=RND(-TIME) 

Y(I)=INT(6*RND(1)+1) 

DS(I-1)=Y(I) 

I FY (2 ) = 10RY (3 ) =1THENGOSUB1080 : PLAY” 04C 
IFY (2)=20RY (3 ) =2THENG0SUB1 100 : PLAY”04C 
IFY (2)=30RY (3)=3THENGOSUB1120: PLAY"OD 
I FY (2 ) =40RY (3 ) =4THENGOSUBl 140 : PLAY” 04 
I FY (2 ) =50RY (3 ) =5THENG0SUB1 160 : PLAY” 04 
I FY (2 ) =60RY (3 ) =6THENG0SUB1 180 : PLAY” 04 
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llm A=Dsa)*B=DS( 2 ) 9)=24 IHEB1070 
106 0 NEXT I 
1070 RETURN 

1080 CIRCLE (11+1*40, 118) 2 15 i 
1090 RETURN ’ ’^ ,A0 '>>1 

1100 CIRCLE (17+1*40, 111) . 2 15 i • r 7 rpt c /-* 
+ 1*40, 125) , 2, 15, , 1 > ia, , . 1. CIRCLE (5 

1110 RETURN 

1120 GOSUB 1080: GOSUB1 100 
1130 RETURN 

+ I 1 *40 C 1 I 25)' E ? 5 |^ 40 ^ 1 y ) ’ 2 > 15 > - > 1: CIRCLE (17 
nM^RETBRil 2 ’ 15 ’ ’ ’ 1:G0Sl,B 
1160 GOSUB 1080: GOSUB 1140 
11-70 RETURN 

1180 CIRCLE(11+I*40 ui) 2 15 1 • tibct u/i 

;ióI 4 St 125> • 2 ’ 15 - • ■ i “osÓb' u4é' ' IBCLE<1 

1190 RETURN 
1200 'CIJFERS 

D RAW "BM4,37R240D60L240U60 

1220 FOR X=15T0 207 STEP 24 
1230 LI NE (X, 42)- (X+22, 90) , 6, BF 
1240 NEXT X * * 

1250 PSET (19, 60) , 15 
1260 DRAW” E8R4D32L4U24L8” 

1270 PAINT(30, 59) , 15 
1280 PSET (4 1,58), 15 

}fw P D A R mS 4 E fair?f R6DSL12ME8 " 10 '’ 

1310 PSET (65, 58), 15 

ÏIIS 

1340 PSET (88, 70) , 15 
1350 DRAW”U6E12R3D30L4U12L10” 

1360 PAINT (102, 62) , 15 
1370 PSET (112, 52), 15 

iiz ^t»;«HS™5 l0D6G8L4 " 4E7H91 ' 13 " 

1400 PSET (151, 52), 15 
1410 DRAWG15D10F6R3E6U4H5L6E11U4 
1420 PAINT(144, 62) , 15 
1430 PSET (161, 52) , 15 

* 44 ® DRAWR14D16G13H1U6E9U7L10U6 
1450 PAINT(168, 54) , 15 
1460 PSET (185, 55), 15 
1470 DRAW” E3R8F3D9L3D2L8U2L3U9 
1480 PA INT (187, 54) , 15 
1490 PSET (185, 70) , 15 
1500 DRAW”R3U2R8D2R3D9G3L8H3U9” 

1510 PAINT (187, 76) , 15 
1520 PSET (209, 55), 15 

lL5H3Uir ' E3B8F3D17G3D1G3D103D1I - 6,I4E5l ' 1 5« 
1540 PAINT (217, 72) 15 
1550 RETURN 
1560 'AANT. DEELNEMERS 

1570 DRAWBM55, 65”: PR INT#1, "HOEVEEL SPELER 



S ?” 

1580 A$=INKEY$ 
1590 IF A$=”l” 



1600 

1610 



T- THEW SP=1: RETURN 

F A$=”2” THEN SP=2: RETURN 

1620 TP a! = .’ THEN SR =3: RETURN 

1620 IF A$=”4” THEN SP=4: RETURN 

1630 GOTO 1580 
1640 ’ TITELING 
1650 CLS: PSET (9, 1 ) , 15 
1660 GOSUB 1880 

1670 DRAWBM25, 16” : PRINT#1 ”oe” 
1680 PSET (53, 1) , 15 oe 

1690 GOSUB 1880 

1700 DRA V” BM69, 16” .‘PRINT# 1 ”p” 
1710 PSET (90, 1), 15 
1720 GOSUB 1880 

1730 DRAW”BM106, 16” : PRINT#1 ”enr” 
1740 PSET <189, 1) , 15 ’ ^ 



1750 GOSUB 1880 

1760 DRAW”BM205, 16” : PRINT#1 ”icht” 

1770 PSET (137, 10), 15 ’ 

\lll BR AW”U1E2U1E2R4E2R4E2R3 
1790 PSET (147,4), 15 
1800 DRAWD3G1D3G1D3G1D3G1L1G1 T pril v> 

1810 DRAV”BM152,16”:?rInT# 1 "och” 

1820 PSET (243, 14) , 15 ’ 

1830 DRAV”U3R1U3R1U3R1U3R1D3L1D3L1D3L1D3L1 

1840 PSET (240, 23), 15 
1850 DRAW” U2R2D2L2U2 
1860 RETURN 
1870 'TEKENEN D 

1o^ DRAW ” D 3L1D3L1D3 l 1 D3L1D3L1D3L1D3E3R1E1 

BEiSsf 03H1 " 3H1 “ 2 »2WH2WHmmf IE1 

1900 LINE (3, 140)- (240, 190) 13 rp 
IF PT>KKTHBB BK=pir»sip|' 

1920 IFSP=1THEN1970 
1930 I FPS= 1THENPT ( 1 ) =PT 
1940 I FPS=2THENPT (2 ) =PT 
1950 IFPS=3THENPT(3)=PT 
1960 I FPS=4THENPT (4 ) =PT 
1970 DRAWBM10, 165” : PRINT#1 ” TE H/urm?» 

1980 DRAWBM102, 165”: PRINT#1 J ^ HAALDE 
1990 DRAW” BM10 , 175” : PR INT#1 t, FFR’ni?r> 

2000 DRAVBM102, 175”?PBTlT#i ï°“ 

2010 FOR V=1 T0975 : SEÏTV ’ ’ 

2020 IFPS=SPTHEN 2090 

2030 DRAVEM137, 175" PRimi, "»****,*«„ 
2040 DSAVBH137, 155": PRIKT.!,. ■«*«*»»,„» 
2050 DRAVBM137, 165” : PRINT.l, "* VOLGENDE 

2070 COT^lV 0 * “ =1 T ° » 

I 175" : PRIKT.l , 

2090 I FSP= 1 THEN2240 

2100 DRAWBM137, 165" : PRINT#1 , ”* UITSLAG 

2110 F0RW=1T0199: NEXT 
2120 LINE (3, 140)— (240, 190) 13 RE 
2130 DRAW”BM10, 145” : PRINT#! , "SPLR 1 HAALDE 

2140 DRAW”BM118, 145” : PRINT#1 ‘PT(D 
2150 DRAWBX10, 154": PR1KT»1, "SPLR 2 HAALDE 

2160 DRAW”BM118, 154”:PRINT#1 -PTTP) 

2170 I FSP=2THEN2240 rK1JU#l ' > PT (2 > 

2180 DRAWBM10, 163": PRINT#1, "SPLR 3 HAALDE 

2190 DRAWBM118, 163” : PRINT#1 'PT (3) 

2200 I FSP=3THEN2240 ” 3> 

2210 DRAW-BM10, 172” :PRINT#1, -SPLR 4 HAALDE 

2220 DRAWBM118, 172” : PRINT#1 • PT (.&. i 
2230 FORW=1TO100 ’ PT<4) 

3250 K'l Sïl; : SJSJ} ■ 

2280 IF A$=" J” THEN 200 

2290 IF AS=” j” THEN 200 

2300 IF AS=”N” THEN 2550 

2310 IF A$="n” THEN 2550 ELSE 2270 

2320 DRAW-BM5, 160”: PRINT#1 "BFURT • 

iX 172 ” :PB 1»«1."P01ITEK ; " 

2370 SCREEN0: WIDTH40 

2380 CLS: PR INT” Doe de deur toch dicht" :PRI 



17 



2390 PRIFF’Elk van de raax.4 spelers probee 
rt zoveelmageli jk hakjes te sluiten ” 

2400 PRINT” Bij het begin van het spel zijn 
de hokj esapen* ” ; PRINT y J 

tenpn PR n NT " De com P uter gooit twee dobbels 
tenen. Desom van de ogen of elke waarde 
apartbepaalt welk hokje of welke hokjes 
gesloten wordt/worden.” 

2420 PR INT” Drukt men op toets II] dan 
gaan tweehokjes dicht en tikt men I 2 I d 
an gaathet hokje dicht met het getal dat d 
e^somis van de ogen van de twee dobbelsten 

2430 PR INT” D e beurt is voorbij als men g 
öen hakjekan sluiten.” ° 

score is de waarde van de 
R?NT l0tenhOkjeS min hSt aantal beurten. ” : p 

2450 PR INT” Druk op een toets” 

2460 A$=INKEY$ 

2470 IF A$=””THEN 2460 ELSE 2480 
^480 CLS 

2490 PR ï NT” Een voorbeeld.”,” Veronderste 
i dat de computer een 4 eneen 5 gooit. Als 
de speler op toets £1] drukt gaan de hokj 

t t n 5 n d i Cht<Tikt men de [ 2] in dan ga 
at hokje 9 dicht.*’ * 

2500 PR INT” Heef t men de 1 ingedrukt en is 

toe 5 31 dlCht dan gaat ALLEEN hokje 4 

2510 PRINT: PRINT: PRINT: 

2520 PR INT” Druk een toets in” 

2530 A$= INKEYS 

2550 END AS " ,M ’ THEN 2530 ELSE 180 
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CIJFERPATIENCE 



Cijferpatience bevat een handleiding in 
het programma zelf. Het spel lijkt wat op 
kaartpatience, er komt af en toe wat 
gepuzzel aan te pas en door het toevals- 
element verveelt het niet snel. Het bijzon- 
dere aan het programma is, dat de compu- 
ter mee kan spelen; een van de weinige 
BASIC programma’s, die onder de categorie 
kunstmatige intelligentie vallen. Het maken 
van het programma heeft dan ook meer 
dan een jaar geduurd. Ondanks dat is de 
computer geen perfecte speler; verbeterin- 
gen en suggesties zijn zeker mogelijk en 
ook welkom. 

Het algoritme vindt u in de hoofdlus: 
regels 290- 330. In schema: 



Getal 




De getallen verwijzen naar de subroutines. 
Het schema wordt echter pas duidelijk, als 
u het programma enigzins onder de knie 
heeft. 

De subroutines 650 t/m 1590 zijn voor het 
algoritme en zijn uitvoering. De subrouti- 
nes 1690 t/m 2290 zijn voor de speler. De 
subroutines 1350 en 1400 zijn afdrukrouti- 
nes, die zowel voor het algoritme als voor 
de speler gebruikt worden. Met enige 
simpele wijzigingen in de hoofdlus is het 
mogelijk een van beiden uit te schakelen: 
als u regel 280 t/m 330 verwijdert doet 
alleen de speler mee en als u regel 280 en 
340 weghaalt alleen de computer. Omdat 
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fi ke hil ande,I i 19 6en , ei 9 en subroutine heeft 
wijzïen. ” 09 '’ I ‘ JR hCt t. 

Mark Engels. 

10 SCREEN 0: WIDTH 40.-COLOR 1,15 15 
20 KEY OFF ’ 

30 LOCATE 2, 15: PRINT" spelregels?” 
ca A$-INKEY$: IF A$="" THEN 40 

A$="j" DR Ai=” J" THE» GOSUB 2450; GOT 

70 V^DTH (40) ; KEY^OFF 1 *” ™ EN BLSE 4 ® 

0?<ï> I "m < M<ê; DIK PL<6TO>!DI » ST<12);DIK 
90 CLS: LOCATE 1,10:PRINT fl#**/"*,* o rrrt; 

erpatience ottWi?- & ° CIJF 

100 CO-0: TE=1: KD=100: KN=0: AN=96: CA=0 

1?0 ïïnp T-i 1 ïn 800:PL(I >=0 :NEXt‘ I 
T0 12:ST(I)=0: NEXT I 
130 FOR 1=1 TO 96 

0 +i 6 R3Sr<I>=:I-CO: IF I/16=IIf T(I/16) THEN CO=C 
150 NEXT I 

LOCK C £t OCATE 1,10:PRINT ” Dae t u de CAPS 
LUCK toets aan, aub. PRINT: INPUT "Soeelt 

u tegen de computer <C> of heeft u een and 
ere tegenstander <A>”;AN$ 

170 IF AN$="C” THEN QQ =0 ELSE QQ =6 
180 CLS: PRINT "Computer Getal 

Speler": PRINT: PRINP'Rlj 1234 
1 2 3 4 " : PRINT" 

190 IF QQ =6 THEN LOCATE 0,0: PRINT "Speler 

200 FOR 1=4 TO 22; LOCATE Sflfralïr.. I » ; HEX 

210 > 

220 ’ 

230 * 

240 ’hoofdlus 
250 FOR BE=1 TO 96 

270 G L ^B E 600 a:PBII,T "" O8 '' :96 - BE; ” te " ” 

^340’^Compie Set" 25'”?® 1700i ^“™ 

--? 0 THm" 3 B 10 5 eÜe 340 1 IHE " G0SUB 8 ®®‘ IF 
300 GOSUB 700: GOTO 320 
310 GOSUB 800: IF CP =1 THEN 310 
320 GOSUB 900: IF CP =1 THEN 310 
330 GOSUB 1100: IF CP =1 THEN 310 
340 GOSUB 1700 

350 LOCATE 20 1 : PR I NT” " 

360 NEXT BE 
370 ’ 

380 * 

390 ' 

400 CLS: SC =0 

410 FOR 1=1 TO 6 : SC^SC+ST ( I ) : NEXT I 

gehaald 1 "” 06 COmputer heeft ”iSC;" punten 

A80 CO=SC:SC=0: IF QQ=6 THEN 530 
440 FOR 1=7 TO 12: SC=SC+ST<I> • NEXT I 

PRINT*™ ” ü h6bt " :SC: ” pUnten gehaald.": 
e?ndlgd SC ;?et T gek'" RIlïT ” We ZiJn gelijk ge 

470 IF SOCO THEN PRINT "Van harte, u hebt 
gewonnen." ’ eD1: 

480 ÏF SC<CO THEN PRINT ”U zou vaker moete 

s ik ” en ’ Want U b6nt n ° S niet 20 S oed al 
490 PR INT" NOG EEN KEER?" 

500 A$= I NKEY$ : IF A$=””THEN 500 



520 END^*~” J ” ° R A$= ” J ” THEN 90 

530 FOR 1=7 TO 12: SC=SC+ST ( I ) : NEXT I 
540 PRINT "Speler 1 heeft ” *Qp.»» ^ + 

haald.": PRINT ' SC; pUnten S e 

cca F0R 1 = 1 T0 ® • CO=CO+ST ( I ) : NEXT I 

£i" , ?n$* 1 * r 2 heeft " lC0: " *■*•» ■■ 

570 GOTO 490 
580 ’ 

590 'Trekking 

» 0 y!AS P A™»:r" E> * A ” tl>:OE=li ’ <TÏ>:1, ' <T 

610 LOCATE 15,0: PRINT GE 
620 RETURN 
630 ' 

640 'Stapel 
650 CP=0 ; FOR J=1 TO 6 

660 IF ST<J)=GE-1 T HEN ST(J)=GE: CP=1- LOCAT 
E J*3-3, 22: PRINT ST(J):J=6 LUCAT 

670 NEXT J 
680 RETURN 
690 ’ Reserveri j 
700 FOR 1=1 TO 4 

TE®: TE^E+r 1 im+TE ~ 100: : 0T ( 1 =PL <■ p *1®0-100+ 

720 IF PL(I*100+TE-100)<>0 THEN 710 
730 TE=1: NEXT I 

740 IF PL(1)=0 AND PL(101)c0 AND PT (P0>1 ■>-(?> 
A»D PL <30 1 ) =0 THE» VR-irGOTO 760 8 

750 IF PL (1 )=0 OR PL<101)=0 OR PI f?0l n 
R PL(301)=0 THEN GOSUB 1490 ELSE GOSUB 159 

770 RETURN =GE: KD=100: 0=0 ; VZ=VR: GOSUB 1350 
780 ’ 

790 'Reserverij naar stapel 
800 CP=0: IF PL<1)=0 AND PL(101)=0 AND PLf? 
01>=0 AND PL(301)=0 THEN 870 2 

810 FOR 11=1 TO 6: FOR 1=1 TO 4 

820 VE=I*100+TE-100:TE=TB+1 
840 ^ P = PLa:,:100+TE -l 00 ><> 0 THEN 820 
850 IF ST( I I >=PL(VE)-1 THEN ST (II )=PT CVR> • 

3 JlfSifSaf ) VE: G0SUB 14001 L0CATEI r*3 : 
860 NEXT I : NEXT II 
870 RETURN 
880 ’ 

890 ’ Verplaatsen 

900 CP=0: IF PL (1 >=0 AND PL(101)=0 AND PL(2 
0D-0 AND PL(301)=0 THEN 1000 
910 FOR J=1 TO 4 

00?: TE=^E+f^ l 00 + T E- 100 : OT (. J > = = PL (J*100+TE-1 

w lluïiï TitlVoY^ THB " 020 

^ a iïu:r nE - m:oT ( u >=pl < 1 ww0+ 

Q60 IF PL (I I*100+TE-100)<>0 THEN 950 
970 TE=1: VE=RT(I I ) — 1 : IF VE=0 THEN VE=99 
980 IF PL(VE)OOT(I I)+l AND OT (J )=0T (I I ) +1 

lISI) -ê R Tf ’,*i : £ ■ (VS> - - 0T < 1 1 > : ™4Sa { > ; }. 

vÉ’&re HOT 4 ' CP " : VZ=VS: ° 0SVB 1350 : ïz = 

990 NEXT II: NEXT J 
1000 RETURN 
1010 * 

1020 ' 

1030 ' 

1040 * 

1050 ’ 

1060 ' 

1070 ’ 

1080 ’ 



19 



1090 1 Lege rij 

1100 CP=0: IF PL (1)00 AND PLC10DO0 ANDPL 

(201)00 AND PL (301)00 THEN 1280 

1110 IF PL(1)=0 AND PL(101)=0 AND PL(201)= 

0 AND PL (301 )=0 THEN 1280 

1120 FOR 1=1 TO 4 

1130 RTd) = I*100+TE-100:TE=TE+l: IF PL(I*10 

0+TE- 100)00 THEN 1130 

1140 IF PL( I *100-99) =0 THEN VR=I 

1150 TE=1 : NEXT I 

1160 FOR 11=1 TO 6: FOR 1=1 TO 4 

1170 IF I=VR THEN 1190 

1180 VE=RT < I ) — 1 : IF ST(I I )=PL (VE)-l THEN CP 

=1: VL=I: 1=4: 11=6 

1190 NEXT I : NEXT II 

1200 IF CP=1 THEN 1270 

1210 FOR 1=1 TO 4 

1220 IF I=VR OR RT(I)-I*100+99=0 THEN 1250 
1230 VE=RT ( I ) : IF PL(VE)>PL(VE-1) THEN CP=1 
1240 IF PL (VE) >KN THEN KN=PL(VE) : VL=I 
1250 NEXT I 

1260 KN=0: IF CP=0 THEN 1280 

1270 VZ=RT (VR) : VS=RT (VL) : PL (VZ) =PL (VS) : PL ( 

VS)=0: GOSUB 1350: VZ=VS: GOSUB 1400 

1280 RETURN 

1290 ’ 

1300 ’ 

1310 ’ 

1320 ’ 

1330 V 

1340 'Scherm wijzigen 

1350 X=3X I NT (VZ/100+1 ) : Y=VZ- 100* I NT (VZ/100 
) : IF TE=2 THEN X=X+11 

1360 IF Y<15 THEN LOCATE X,Y+3: PRINT PL(VZ 
) : GOTO 1380 

1370 FOR 1=1 TO 15 : LOCATE X,I+3:PRINT PL(V 
Z-15+I ) : NEXT I 
1380 RETURN 
1390 ’ 

1400 X=3*INT (VZ/100+1) : Y=VZ-100XINT (VZ/100 

) : IF TE=2 THEN X=X+11 

1410 IF Y<15 THEN LOCATE X,Y+3: PRINT ” 

: GOTO 1440 

1420 FOR 1=1 TO 15 : LOCATE X, 1+3: IF PL(VZ-1 
5+I)=0 THEN PRINT ” ” ELSE PRINT PL(VZ-1 

5+1) 

1430 NEXT I 
1440 RETURN 
1450 ’ 

1460 ’ 

1470 ’ 

1480 ’ 

1490 ' Half bezet 
1500 FOR 1=1 TO 4 

1510 IF OT ( I ) =0 THEN VL=I:GOTO 1530 
1520 IF OT (I ) >=GE AND OTdXKD THEN KD=OT( 
I ) : KR= I 
1530 NEXT I 

1540 IF KD=100 THEN VR=RT(VL) ELSE VR=RT (K 
R)+l 

1550 RETURN 
1560 ’ 

1570 ' 

1580 ’ 

1590 'Vierbezet 

1600 FOR 1=1 TO 4 

1610 IF OTUXGE THEN 1630 

1620 IF OTdXKD THEN KD=OT (I ) : KR= I : G0T016 

40 

1630 IF OT (I ) > KN THEN KN=OTd):KI=I 
1640 NEXT I 

1650 IF KD=100 THEN VR=RT(KI)+1 ELSE VR=RT 

(KR)+1 

1660 RETURN 

1670 ’ 



1680 ’ 

1690 'De speler 

1700 IF QQ=0 THEN COLOR 1,8 ELSE COLOR 1,3 
1710 LOCATE 20,0: PRINT "Opties ": LOCATE 20 
,1: PRINT " 1234S” 

1720 A$=INKEY$: IF A$=""THEN 1720 
1730 IF A$0” 1" AND ASK>”2” AND A$0”3” AN 
D A$<>"4" AND A$0”S" THEN 1720 
1740 IF A$="S” THEN GOSUB 1900 ELSE GOSUB 
2000 

1750 IF CP=0 THEN COLOR 1,1: FOR 1=1 TO 150 
: NEXT I : GOTO 1700 

1760 COLOR 1,7: LOCATE 20,0: PRINT "Opties 

": LOCATE 20,1: PRINT "RSK 

1770 A$=INKEY$: IF A$=””THEN 1770 

1780 IF A$="K" THEN 1820 

1790 iF A$=”R" THEN GOSUB 2100 

1800 IF A$="S" THEN GOSUB 2300 

1810 GOTO 1760 

1820 COLOR 1,15 

1830 LOCATE 20,0: PRINT " LOCATE 20, 

1: PRINT ” ” 

1840 RETURN 
1850 ’ 

1860 ' 

1870 ’ 

1880 ’ 

1890 'Stapel 

1900 CP=0 : FOR J=7 TO 12 

1910 IF ST(J-QQ)=GE-1 THEN ST(J-QQ)=GE: CP= 
1: LOCATE (J-QQ)*3-l-QQ/3, 22: PRINT ST(J-QQ) 

: J=12 

1920 NEXT J 
1930 RETURN 
1940 ’ 

1950 ’ 

1960 ’ 

1970 ' 

1980 ’ 

1990 ’ Reserveri j 

2000 I=VAL (A$) +4-QQX2/3 

2010 RT (I ) = I * 100 +TE- 100 

2020 IF PL(I*100+TE-100)<>0 THEN TE=TE+1: G 
OTO 2010 

2030 VZ=IX100+TE-100:PL(VZ)=GE:TE=1: IF QQ= 
0 THEN TE=2 

2040 GOSUB 1350: CP=1 : TE=1 
2050 RETURN 
2060 ’ 

2070 ’ 

2080 ’ 

2090 ’ Verplaatsen 

2100 LOCATE 20,0: PRINT "Van rij”: LOCATE 20 
,1: PRINT ” 1234" 

2110 A$=INKEY$: IF A$=""THEN 2110 

2120 IF A$0”1" AND A$<>”2'' AND A$<>"3" AN 

D A$<>"4" THEN 2110 

2130 I=VAL (A$)+4-QQ*2/3: VZ=I*100+TE-100: RT 
(I)=VZ 

2140 IF PL (VZ)<>0 THEN TE=TE+1:G0T0 2130 
2150 VT=VZ: VZ=VZ-1 : IF PL(VZ)=0 THEN COLOR 
1,1: FOR 1=1 TO 150: NEXT I: RETURN 
2160 GA=PL(VZ) : PL(VZ)=0: TE=2: IF QQ=6 THEN 
TE=1 

2170 GOSUB 1400: TE=1: LOCATE 20,0: PRINT "Na 
ar rij” 

2180 A$=INKEY$: IF A$=""THEN 2180 

2190 IF ASO" 1” AND A$<>”2'' AND A$<>”3” AN 

D A$<>"4” THEN 2180 

2200 I =VAL ( A$ ) +4-QQX2/3 : VZ= I * 100+TE- 100 
2210 IF PL (VZX>0 THEN TE=TE+1:G0T0 2200 
2220 IF PL (VZ-DOGA+l AND PL(VZ-1)<>0 THE 
N COLOR 1, 1: VZ=VT-1:F0R 1=1 TO 150: NEXT I 
2230 PL ( VZ ) =GA : TE=2 : I F QQ=6 THEN TE=1 
2240 GOSUB 1350 :TE=1: RETURN 
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2250 ’ 

2260 ’ 

2270 ’ 

2280 ' 

2290 ’ Van reserverij naar stapel 

2300 LOCATE 20, 0: PRINT ”Van rij”:LQCATE 20 

,1: PR INT ” 1234" 

2310 A$=INKEY$: IF A$=’”'THEN 2310 

2320 IF A$<>" 1” AND A$<>”2" AND A$<>»3” AN 

D A$<>"4” THEN 2310 

2330 I=VAL (A$ ) +4-QQX2/3 : VZ=I*100+TE-100: RT 
(I)=VZ 

2340 IF PL (VZ) <>0 THEN TE=TE+l:GOTO 2330 
2350 VZ=VZ-1:IF PL(VZ)=0 THEN COLOR 1,1: FQ 
R 1=1 TO 150: NEXT I : RETURN 

2360 GA=PL(VZ) : PL(VZ)=0: TE=2: IF QQ=6 THEN 
TE=1 



2370 GOSUB 1400: TE= 1 : CP=0 : FOR J=7 TO 12 
2380 IF ST (J-QQ)=GA-1 THEN ST(J-QQ)=GA: CP= 
1: LOCATE < J -QQ ) *3- 1 -QQ/3 , 22 : PR I NT STCJ-QQ) 
: J=12 



2390 NEXT J 

2400 IF CP=0 THEN COLOR 1, 1: PL(VZ)=GA: TE=2 
: GOSUB 1350: TE=1: FOR 1=1 TO 150: NEXT 
2410 RETURN 
2420 ' 

2430 ' 

2440 'Uitleg 

2450 KEY OFF:CLS: SCREEN 0: COLOR 1,15 
2460 PRINT "Cijferpatience is een oud spel 
uit de provincie Groningen. 

2470 PRINT" Wie meer over de oorsprong weet 
wordt verzocht dit te melden. Het werd/w 
ordt gespeeld met 96 ronde kartonnetjes 
ter grootte van een kwartje met daarop 6 
keer de getallen van 1 tot en met 16." 
2480 PRINT” Iedere serie van 16 heeft een a 
ndere kleur. ”: PRINT”Voor de computer is 
het spel aangepast." 

2490 PRINT: PRINT "Druk op een toets” 

2500 IF INKEY$=”" THEN 2500 
2510 CLS: PRINT "De spelregels zijn:": PRINT 
2520 PRINT ” A) Definities” : PRINT: PRIFF'a) 
Stapel :": PRINT"een serie opgestapelde geta 
Hen. De te vormen stapel begint met 1, d 
aarop komt” 

2530 PRINT "een 2, dan een 3 enz. Het laat 
ste getal is 16. In een stapel mag elk get 
al slechts 1 keer voorkomen. " : PRINT: P 

RINT"b) Reserverij:" 

2540 PRINT "deze wordt gevormd door de get 
rokken getallen die niet op een der sta 
pels gelegd kunnen worden. Er zijn 4 re 
serve-rijen. 

2550 PRINT: PRINT "Druk op een toets" 

2560 IF INKEY$="" THEN 2560 

2570 GOSUB 2900 

2580 IF INKEY$=”” THEN 2580 

2590 CLS: PRINT ”B) Doel van het spel":PRIN 

T 

2600 PRINT "Winnaar is degene met de meest 
e punten. ": PRINT 

2610 PRINT: PRIFP'C) Gang van zaken” : PRINT: 
PR INT” De computer trekt een willekeurig ge 
tal. Alle getallen 1 tot en met 16 komen 
ieder 6 keer voor. De speler kijkt of 
het getal op een stapel gelegd kan” 

2620 PRINT "worden. Zoniet dan moet men he 
t getal op een van de reserverijen legge 
n. ” : PRINT’Het spel is afgelopen als alle g 
etallen 6 keer getrokken zijn en geen van 
de spelers zijn stapels kan aanvullen.” 
2630 PRINT: PRINT "Druk op een toets" 

2640 IF INKEY$=”” THEN 2640 

2650 CLS: PRINT ”D) Spelregels” : PRINT 



2660 PRINT ”a) De reserverijen 

De eerste verplaatsing tussen de 
reser- ver ij en is mogelijk als de speler 
nog niet alle rijen gevuld heeft. Met an 
derewoorden: op één of meer rijen ligt geen 

2670 PRINT "enkel getal. Het laatste getal 
van één van de andere rijen kan op de le 
ge rij geplaatst worden." 

2680 PRINT "De tweede verplaatsing is moge 
lijk als het te verplaatsen getal 1 minde 
r is dande onderste van de nieuwe rij. Een 
6 b.v.mag alleen onder een 7 geplaatst wor 
den. " 

2690 PRINT "Druk op een toets" 

2700 IF INKEY$=”” THEN 2700 
2710 GOSUB 2900: GOSUB 2950 
2720 IF INKEY$="" THEN 2720 
2730 CLS: PRINT ”b) De stapels 

Getrokken getallen kunnen di 
reet op een stapel gelegd worden; ook de o 
nderste getallen van de 4 reserverijen ku 
nnen op" 

2740 PRINT "een stapel gelegd worden. In b 
eide ge- vallen moet het getal 1 meer zijn 
dan hetgetal op de stapel.” 

2750 PRINT: PRINT "Druk op een toets” 

2760 IF INKEY$=”” THEN 2760 
2770 GOSUB 2900: GOSUB 3100 
2780 IF INKEY$=”” THEN 2780 
2790 CLS: PRINT "De computer trekt het geta 
1. Dat ver- schijnt linksboven. U krijgt 5 
opties: 1 tm 4 staat voor de 4 rijen, S 

voor sta-pel . U moet op één der 5 toetsen 
druk-” 

2800 PRINT "ken. Daarna zijn er drie opties 
! R, S en K. K staat voor klaar, R voor ve 
rplaat- sing tussen 2 rijen en S voor verpl 
aat- sing van een rij naar een stapel." 

2810 PRINT "U kunt de spelregels onmogelijk 
overtre- den; de computer controleert elk 
e hande-ling op geldigheid. Bij overtreding 
wordthet scherm even zwart; daarna wordt 
de oude situatie hersteld.” 

2820 PRINT "Als het scherm wit is, denkt d 
e computerna over zijn mogelijkheden; bij een 
i( ge~ kleurd scherm bent u aan de beurt. 

2830 PRINT "De computer speelt op de linke 
r helft vanhet scherm, u op de rechterhelft 
. U kuntvan de computer enige trucs afkijke 
n, maar een ervaren speler moet gemakk 
elijkkunnen winnen. ": PRINT" Veel plezier en 
succes! ” 

2840 IF INKEY$=”” THEN 2840 
2850 RETURN 
2860 ’ 

2870 ' 

2880 ' 

2890 ’ 

2900 CLS: PRINT "Computer Getal 
Speler” : PRINT: PRINT”Ri j 

1234 ": PRINT" 



2910 PRINT ” 4 Reserverijen — > 
3 7 11 

5 7 



2920 LOCATE 0,22: PRINT ”4 stapels 
-> 11 8 5 3 

2930 RETURN 
2940 ' 

2950 LOCATE 36, 5: PRINT ”• "’GR 9 
2960 LOCATE 36, 6: PRINT 



16 

13 12 
3 6 8 

9 10 

11 2 ” 
(max. 6) 
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'GR F, GR - 
-m” G R V 



2970 FOR 1=7 TO 9 : LOCATE 36,1: PRINT ” ! : NE 
XT 

2980 LOCATE 36, 10: PRINT ’’ J *”GRAPH N 
2990 LOCATE 33, 10: PRINT 
3000 LOCATE 27, 11: PRINT 
3010 LOCATE 27, 10: PRINT 
3020 LOCATE 27, 9: PRINT 
3030 LOCATE 27, 8: PRINT ”•*' 

3040 RETURN 
3050 ’ 

3060 ’ 

3070 ’ 

3080 ’ 

3090 ' 

3100 FOR 1=9 TO 14: LOCATE 25,I+6:PRINT 
: LOCATE 30,1: PRINT ’’:NEXT 
3110 LOCATE 26, 14: PRINT ” ” 

3120 LOCATE 25, 21: PRINT "v* 

3130 RETURN 
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58 


Regel 


2530 


- 


233 


Regel ; 


820 - 




1 34 


Regel : 1 680 - 


58 


Regel 


2540 


- 


75 


Regel : 


830 - 




1 32 


Regel : 1 690 - 


58 


Regel 


2550 


- 


252 


Regel : 


840 - 




1 54 


Regel : 1 700 - ; 


229 


Regel 


2560 




252 


Regel ; 


850 - 


1 84 


Regel : 1710 - 


250 


Regel 


2570 


- 


26 



Regel 


2580 


- 


16 


Regel 


2590 


- 


66 


Regel 


2600 


- 


238 


Rege 


2610 


- 


22 


Regel 


2620 


- 


90 


Regel 


2630 


- 


252 


Regel 


2640 


- 


76 


Rege 


2650 


- 


60 


Regel 


2660 


- 


191 


Regel 


2670 


- 


77 


Regel 


2680 


- 


253 


Regel 


2690 


- 


49 


Regel 


2700 


- 


1 36 


Regel 


2710 


- 


1 60 


Regel 


2720 


- 


1 56 


Regel 


2730 


- 


92 


Regel 


2740 


- 


1 96 


Regel 


2750 


- 


252 


Regel 


2760 


- 


1 96 


Regel 


2770 


- 


55 


Regel 


2780 


- 


216 


Regel 


2790 


- 


1 67 


Regel 


2800 


- 


157 


Regel 


2810 


- 


48 


Regel 


2820 


- 


1 93 


Regel 


2830 


- 


72 


Regel 


2640 


- 


21 


Regel 


2850 


- 


142 


Regel 


2860 


- 


58 


Regel 


2870 


- 


58 


Regel 


2880 


- 


58 


Regel 


2890 


- 


58 


Regel 


2900 


- 


141 


Regel 


2910 


- 


1 38 


Regel 


2920 


- 


65 


Regel 


2930 


- 


1 42 


Regel 


2940 


- 


58 


Regel 


2950 


- 


62 


Regel 


2360 


- 


251 


Regel 


2370 


- 


1 03 


Regel 


2980 


- 


53 


Regel 


2990 


- 


219 


Regel 


3000 


- 


64 


Regel 


3010 


- 


1 8 


Rege 1 


3620 


- 


245 


Regel 


3030 


- 


222 


Regel 


3040 


- 


1 42 


Regel 


3050 


- 


58 


Regel 


3060 


- 


58 


Regel 


3070 


- 


58 


Regel 


3080 


- 


58 


Regel 


3090 


- 


58 


Regel 


3100 


- 


8 


Regel 


31 10 


- 


21 


Regel 


3120 


- 


21 


Regel 

Tota» 


3130 - 
3SS57 


1 42 



MSX-GIDS 

BEWAARBANDEN 

Voor de MSX Gids zijn nu ook opbergmappen 
verkrijgbaar. Deze bewaarbanden zijn - uiter- 
aard - geel en hebben het MSX-Gids logo 
(in zwarte opdruk) op de voorzijde en op de rug. 
In deze mappen kunnen minstens 6 exemplaren 
van de Gids opgeborgen worden. De bladen 
worden in de map vastgezet met speciale 
(bijgeleverde) metalen klemmen. Hierbij wordt 
het blad niet beschadigd! De mappen worden 
geleverd in een bijbehorende verzenddoos en 
de prijs van deze bewaarband is ƒ 19,95 per 
stuk. Deze prijs is inclusief BTW en verzend- 
kosten. 

De banden zijn te bestellen door overmaking 
van ƒ 19,95 per stuk op Postbanknummer: 
503601 1 t.n.v. J. Herps te Lelystad onder ver- 
melding van ’bewaarband’. 

Voor België is dit Bfr. 365 op bankrekening 
235-0430464-87 bij de Generale Bank te 
Hasselt t.n.v. J. Herps, Postbus 516, 
8200 AM Lelystad onder vermelding van ’be- 
waarband’. 
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ROMMELEN IN DE 
RAM. 

(deel 3) 

BESPARINGEN OP DE GEHEUGENRUIMTE 



SI» en , P ro Sramma erg lang wordt dan kan 
het wel eens gebeuren dat we in de knel 
komen met de nog beschikbare geheugen- 
ruimte m de RAM. Hoewel uit voorgaande 
hoofdstukken al wel valt op te maken hoe 
we aan ruimte kunnen besparen, wil ik 
toch nog wel enige tips geven welke u in 
totaal heel wat vrije bytes kunnen opleve- 
ren, r 

K Ze j zoveel mogelijk instructies, 
gescheiden door een dubbele punt, op een 
programmaregel. Bedenk daarbij dat elke 
regel 4 bytes extra kost. 

B) Definieer alle variabelen in een zo laaq 
ge°bruiien.° rde ’ dUS Waar m ° 9B,iJk legers 

3) Wanneer U meer dan 5 maal een integer- 
variabele in Uw programma vernoemt, dan 
is het voordeliger om vooraf deze 
mteger(s) te defini-eren met DEFINT... 

4) Ook wanneer in een programma slechts 

een paar ARRAY- VARIABELEN worden 
gebruikt dan wordt daar toch automatisch 
een geheugenruimte voor 10 variabelen bi i 
enkelvoudige indexering (b.v. ACE» of 100 
variabelen bij B-dimensionale indexering 
(b.v. AC5.5)) voor vrijgemaakt, tenzij u 

tevoren deze ruimte met een DIM- 
1 /\ r VÜ, rU f tie hebt afgebakend. B.v. met: DIM 

of DIM A( 5 , 5 ). Bedenk ook dat met DIM 
AC5,5) geen E5 doch 3G posities worden 
gereserveerd want ook de 0 telt mee. 

5) Ook kunt U alle spaties achterwege 
laten, deze hebben geen functie bij het 
runnen van het programma. Anderzijds 
gaat de leesbaarheid van het proqramma 
er wel sterk op achteruit. 

^ ^EM-regels kunnen Uw programma 
verduidelijken, maar kosten wel veel bytes 
houd ze daarom kort en duidelijk! 
Persoonlijk vind ik de apostrofe aan het 
begin wat sympatieker overkomen dan het 
r°°: d , . REM ’- _ Echter kost dat kleine 
tekentje wel 3 bytes terwijl REM slechts 
een byte vergt. 

7) Gebruik van STRINGS. Wanneer in 
begeleidende teksten meerdere malen 
eenzelfde woord of zinnetje gebruikt 
wordt, breng dat dan onder in een strinq 
B.v.: A$="DRUK OP DE SPATIEBALK". In de 

n dan tellien5 volstaan met : 
PRINT A$. Door bij langere regels met 

eenzelfde teken, zoals " / d e 

instructie PRINT STRING$(nn,45) toe te 
passen, kost U dat slechts 7 bytes, ook al 
zou die regel E00 karakters (nn) lang zijn! 

8) Grafische karakters. Als we een gra- 
fisch karakter op het scherm willen 
zetten, b.v. een lachebekje, dan zijn daar 
B verschillende instructies voor mogelijk. 



koat „ « 2 , R , M ® 5) ' De oorste methode 

m„r d ° ch de 

VERWERKINGSSNELHEID VAN EEN 
PROGRAMMA. 



Hoe compacter een programma is geschre- 
ven, des te sneller zullen de opdrachten 
worden verwerkt. Alle eerder gegeven tips 
h e ! , besparing op de geheugenruimte 
hebben dan ook tevens ten gevolge dat 
het programma daardoor sneller is 

nameh d 4 n ' alfJ j '£* verwerkin S moeten 
namelijk alle adressen een voor een 

, W n°form n at UitSele r n - Niet zake boende 

informatie zoals spaties en REM-regels 

kosten dus extra tijd. Vooral FOR-NEXT 

lussen en SUBROUTINES willen we meestal 

zo snel mogelijk doorlopen. Nemen we als 

voorbeeld eens de volgende subroutine: 

2000 ’ Subroutine 

EOIO ’ 

2020 TIME=0 

2030 F0R I%=0 T0 1000 

2040 AX=AX+1 

2050 NEKT IX 

2060 PRINT TIME/50 

2070 END 

Op de eerste plaats moeten we met G0SUB 
aan niet verwijzen naar regel S000 doch 
naar regel 2020, dat scheelt alweer de tijd 

eoi°o zoaK U h *; ze H van de resels 2000 
BUIG. Zoals het daar staat kost het 2.88 

echte°r m ook Z zor Utine ^ doorlo P en - He * 

3020 TIME=0:FORI%=OT01000: 
A%=A%+1:NEHT:PRINTTIME/50:END 

Waarmee de verwerkingstijd is teruqqe- 
bracht naar 2.44 sec. Zouden we 3 het 
/•-teken weglaten dan wordt de reqel wel 
korter, doch de verwerkingstijd wordt 
daardoor 4.9 sec.; dit omdat we nu niet 
meer met integers werken doch met 
DBL-precisie getallen. 



(Red. Buiten de hierbovengenoemde tiid- 
winst mag eigenlijk nooit naar REMreqels 

PRn?lAM S Ma Pr0n . gen dDCh moet alti J d naar 
FROGRAMMAr egels worden verwezen. Wie 

goed wil programmeren in BASIC maakt 
eerst een soort source- proqramma 
barstens vol met REMregels voor de duide- 
lijkheid en (en dit is nog veel belangrii- 
ei ) om later makkelijk wijzigingen aan te 
brengen zonder in een eigen programma te 
moeten zoeken naar de struktuur van het 
programma. Is het programma klaar, dan 
Oewaar je de source en maak je een kopie 
waarin alle REMregels worden verwijderd 
(gebruik hiervoor b.v. ons REMKILL 
programma). Nu krijg je een kompakt en 
snel programma en kun je altijd voor 
veranderingen terug vallen op de ’REM- 

RFM 5 - 16 '' Zo Y den B *\ Bchter sprongen naar 
rB Sels in het source programma 
zitten, dan werkt de ’uitgeklede' versie 
met meer!) 
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LISTINGS. 



LISTING 3. 



LISTINGS 1 en 2. 



Voor hen die zelf eens wat willen rondneu- 
zen in de RAM geef ik U nog 2 eenvoudige 
listings waarmee telkens een heel blok uit 
de RAM kan worden uitgelezen. In een 
tabel wordt, per adres, de inhoud van dat 
adres gegeven in HEX-code. Listing 2 is 
alleen voor MSX 2 bezitters. Indien u een 
MSX 1 bezit dan moet u listing 1 gebruiken. 
Als U dit programma wilt gebruiken om een 
bestaand programma te bekijken dan het 
programma hernummeren vanaf 65000, 
saven in ASCII en daarna ’MERGen’ met dat 
programma. 



10 'LISTING 1 
20 ’ 

30 SCREEN0: C0L0R15, 4,4: KEYQFF: VIDTH40: CLS 
40 DEFINTA-Z 

50 PRINT" Met dit programma wordt op èèn 
pagina 

60 PRINT” in een tabel de inhoud gegeven 
van 



70 PRINT” max. 80 adresen ( in HEX-code ) 
, te 

80 PRINT” beginnen bij het adres dat U hi 
er- 

90 PRINT” onder invoert <ook in HEX-code) 



100 PRINT: LINEINPUT” Op welk adres beginn 
en? : &H” ; A$ 

110 A=VAL(”&H"+A$) : B=INT (A/8) *8: CLS: LOCATE 

2,0 

120 PR INT” ADR. +0 +1 +2 +3 +4 +5 +6 

+7” 

130 F0RI=BT0B+79 

140 IFIMOD8=0THEN: PRINT: PRINTRIGHTS (” 
”+HEX$<I)+” ”,8); 

150 I F I < ATHENPR I NT” ”;:GOTO170 

160 PRINTRIGHTS (”0”+HEX$ (PEEKd ) ) , 2)+" ”; 

170 NEXT: PRINT 

180 PRINT” Vilt U nog andere adressen bek 
ijken, 

190 PRINT” druk dan een toets in."; 

200 IS=INKEYS: IFI$=""THEN200 
210 CLS: GOTO100 

10 'LISTING 2 
20 ’ 

30 SCREEN0 : C0L0R15 , 4,4: KEYOFF : VIDTH80: CLS 
40 DEFINTA-Z 

50 PRINT" Met dit programma wordt op èèn 
pagina in een tabel de inhoud gegeven 
60 PRINT” van max 160 adresen (in HEX-cod 
e>, te beginnen bij het adres dat U 
70 PRINT” hieronder invoert (ook in HEX-c 
ode) . 

80 PR I NT : L INE INPUT” Op welk adres gaan we 
beginnen? : &H” ; AS 

90 A=VAL (” &H” +AS ) : B= I NT (A/16 ) * 16 : CLS: LOCAT 
E2, 0 

100 PRINT” ADR. 0123456 

7 8 9 ABCDEF”; 

110 FOR I =BT0B+ 159 

120 IFIMOD16=0THENPRINT: PRINT: PRINTRIGHTS ( 
” "+HEXS (1)+” ” , 8) ; 

130 I F I < ATHENPR I NT” " ; : GOTO150 

140 PRINTRIGHTS(”0”+HEX$(PEEK(I)),2)+” ”• 

150 NEXT: PRINT: PRINT 

160 PRINT” Vilt U nog andere adressen bek 
ijken, druk dan een toets in. 

170 IS= INKEYS : IFIS="”THEN170 
180 CLS: GOTO80 



Deze listing is een toepassingsvoorbeeld 
van de in dit artikel behandelde stof. Met 
deze 'VARIABELEN SNUFFELAAR’ wordt de 
RAM uitgelezen en worden er aan de hand 
van de tokens en codes alle variabelen 
uitgelicht. Als u een programma hebt 
gemaakt met daarin zoveel numerieke-, 
alfanumerieke- of arrag- variabelen dat u 
op een gegeven moment door de bomen het 
bos niet meer ziet dan kan deze listing 
uitkomst bieden. Wanneer dit programma 
na te zijn ’gemerged’ wordt opgestart met 
RUN 65000 dan worden per regel alleen de 
variabelen uitgelezen en desgewenst ook 
uitgeprint. 

Er zitten helaas nog een paar onvolkomen- 
heden in dit programma: De toegevoegde 

nieuwe instructies bij de MSH 2 worden 
ook uitgeprint Comdat hiervoor geen to- 
kens bestaan) evenals de toevoegingen B 
of BF bij de LINE- instructies. In principe 
is ook dit probleem wel op te lossen, doch 
daardoor wordt het programma te lang en 
te traag. De vele REM-teksten zijn alleen 
bedoeld om aan te geven hoe het program- 
ma in elkaar steekt. Bij het o ver nemen 
kunt u die teksten beter weglaten (inch de 
: en ' tekens) dat bespaart ruimte en het 
komt de verwerkingssnelheid ten goede. 

Ger. 



64980 ’ LISTIG 3 
64990 1 

65000 DEFSNGA-Z: DEFFN A$ (Y) =STR$ (PEEK (X) +2 
56*PEEK<X+D) 

65010 SCREEN0: C0L0R15, 4, 4: VIDTH80: CLS: X=&H 
7FFF: S=0: T=1 

65020 INPlTT’Moeten de resultaten ook worde 

n uitgeprint J/N ” ; IS 

65030 I F I $=” J”0RI$=” j ” THENP= 1ELSEP=0 

65040 1 H00 

FDLUS 

65050 X=X+1 

: 1 ophogen adres 

65060 A=PEEK (X) : I FVAL (R$ ) =60000 ! THENEND 
: * A = inhoud adres 
65070 IFA=143THENX=V-1 : GOTO65340 
: 1 REM statement 

65080 I FA= 132THENX= V-2 : T$=”” : GOTO65050 
: ’ DATA regel 
65090 IFA=0THEN65340 
einde regel 

65100 IFA=34THENSWAPS, T 

eerste ” teken voor string 
65110 IFS-1THEN65050 

: ’ doorgaan na tweede H teken 
65120 IFA>64ANDA<91THEN65190 

: ’ HOOFDletter , aanvang VAR. 

65130 IFL=0THEN65150 

65140 IFA=40ORA=41ORA=44THEÏÏX=X-1: GOTO6520 
0 : ’ < > , 

65150 I F A> 10ANDA< 15THENX=X+2 : GOTO65050 
: ' regel nr. /HEX/QCT getal 
65160 IFA>14ANDA<32THENGOSUB65440 
sprang voor getallen 
65170 GOTO 65050 

65180 ’ EER 

STE LETTER VAN VARIABELE 
65190 T$=T$+CHR$ (A) 

: * aanvullen T$ 

65200 X=X+1 : A^PEEK (X) 

: * volgende Byte 
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65210 IFA>64ANDA<91ORA>47ANDA<58THEN65190 
: ’ HOOFDletter of cijfer 
65220 I FA> 237 ANDA<253THEN65300 
: ’ rekenteken 

65230 IFA>128THENT$=T$+”, ” : GOTO65060 
: ’ token 

65240 IFL>0ANDA=44THEN65190 

komma na getal tussen 0 en 9 
65250 I FA=33QRA=350RA=360RA=37THEN65 1 90 
: ’ ! # $ % 

65260 IFA=40THENL=L+1 : GOTO65190 
: ’ < 

65270 IFA=41ANDL>0THENL=L~1:GOTO65190 
: ’ ) na ( 

65280 IFA> 16AIDA<28THEIA=A+31 : GOTO65190 
: 'getal tussen 0 en 9 > K=1 
65290 IFA=15THENX=X+1: GOTO65320 
: 'getal tussen 10 en 255 
65300 IFL>0THEN65060 
65310 T$=T$+", " : GOTO65060 
: 'afsluiting VARIABELE 
65320 T$=T$+STR$ (PEBK (X) ) : GOTO65200 
getal in variabele 

65330 1 — — u j 

TPRINTEN of UITLEZEN regel 
65340 IFT$=”"ORT$=” <”THEN65380 
:'geen VAR. op regel 
65350 IFL=1THENT$=T$+” )” 

: ' afsluit ) 

65360 I FP= 1THENLPR I NTR$+" ”+T$ 

: 'regel uitprinten 
65370 PRINTRS+" *’+T$ 

.■'regel op monitor 
65380 R$=” " : T$=” ’’ : R =0 : s=0 : T= 1 : L=0 
:' 0 -stelling var. 

65390 V=PEBK (X+l ) +256*PEEK (X+2) 
adres volgende regel 

65400 X=X+3: R$=RIGHT$ <” "+FNAS (Y> , 5 ) 

: ' R$ = regelnummer 
65410 X=X+1 : GOTO65050 

: ’ terug naar hoofdlus 

65420 ’ S 

UBROUTINE adres-sprong 
65430 IFA> 16ANDA<27THENRETURN 
: ’ bi j getal 0-9 return 
65440 IFA=15THENX=X+1 
: 'getal 10-255 
65450 IFA=28THENX=X+2 
: ’ INTeger 

65460 IFA=29THENX=X+4 
: ’ SNG-precisie 
65470 IFA=31THENX=X+8 
: ’ DBL-precisie 
65480 RETURN 

: ’ return met verhoogde X 



'Wie geeft denkt aan een 

ander' 



Steun de 
AVO-eelleete 

WMi IS t/n 21 mei 

giro 625000 




A VO-Nederland 

Tel. (033) 75 33 44 

Postbus 850, 

3800 AW Amersfoort 



LEER. PROBEER 
EN PROGRAMMEER 



DEEL 11: Nog meer over bestanden. 



Na een kleine pauze in de cursus is het nu 
de bedoeling dat er in elke MSH-gids weer 
een deel van deze cursus staat. Ik ga nu 
voorlopig alleen verder, en hoop dat u 
suggesties of idee-en over wat u hier 
graag behandeld wilt hebben aan mij op 
wilt sturen. Dan kan ik schrijven over 
zaken waar uw interesse naar uit gaat. 

In Gids nummer 19 hebben we het over de 
sequenti-ele bestandsorganisatie gehad. We 
hebben toen de kreatie van het bestand, 
toevoegen, verwijderen en display van 
gegevens besproken. Ik wil nu verder gaan 
met wijzigen van gegevens en verwijderen 
van dubbele sleutels. 

Hiervoor heb ik een nieuw programma 
geschreven. U kunt het zelf in het 
programma van het vorige deel passen of 
een keuzemenu-programma schrijven waar- 
in gekozen kan worden voor kreatie, 
toevoegen, verwijderen en display of 
wijzigen gegevens of verwijderen van 
dubbele sleutels. Afhankelijk van de keuze 
wordt de juiste programmatuur geladen. De 
bestandsnaam LEDEN.DAT moet al op schijf 
staan. 



Nog even voor alle duidelijkheid. Deze 
voorbeelden werken alleen voor MSH 
computers met DISKDRIVE. Cassettegebrui- 
kers kunnen van de bespreking van de 
listing denk ik ook een heleboel opsteken. 

Er zal door gebruikers van een diskdrive 
nu eerst wel even weer qetupt moeten 
worden. 

WIJZIGEN VAN GEGEVENS 



100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

195 

196 

197 

198 
200 
210 
220 
230 
240 
250 
260 
270 

290 

291 
1000 



’ ******x******m*****m********t 

’ *** MSX-gids nummer 22 *** 

| *** Wijzigen in een ttt 

’ ttt sequentiel bestand *** 

' MSX-computers met 
’ ttt diskdrive *** 



hoofdroutine 



MAXFILES = 4 
GOSUB 1000 

GOTO M 220 0 THEN G0T0 30<50 ELSE G0T ° 240 

GOSUB 4000 

KILL ”A: LEDEN. DAT” 

KILL ”A:LEDÏ[UT. DAT" 

NAME ”A: LEDNW. DAT” AS "LEDEN.DAT” 

END 



1010 - invoeren nieuwe namen 

1020 ’- in mutatie bestand 

1030 . 

1040 ' 
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